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INTRODUCTION 


POURQUOI LIRE CE LIVRE ? 


Parce que vous possédez un HP-41 et que vous désirez tirer le meilleur 
parti de votre investissement ; 

parce que, ayant lu le manuel vous vous interrogez encore pour savoir 
si vous pourrez programmer la belle application dont vous rêvez et que 
vous utiliserez quotidiennement ; 

parce que vous avez peu de temps et que vous désirez devenir rapidement 
efficace sans trop vous fatiguer ; 

parce que vous êtes affectés par le discours abusif des parlant Basic” et 
que vous souhaitez être rassurés sur la puissance du HP-41 ; 


parce que vous êtes curieux. 


COMMENT UTILISER CE LIVRE ? 


Si vous êtes studieux, nous vous proposons le processus suivant : 


1. 
2; 
3. 
4. 


Poser N=| 
Lisez la page N 
Si vous avez tout compris alors N=N+| 


Si le livre est terminé alors arrêter sinon 


continuer à l’instruction 2. 
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Si vous êtes primesautier et que l’algorithme précèdent vous effraye, 
ouvrez vite le livre au hasard et feuilletez-le jusqu’à ce que vous ayez fait une 
découverte, ce qui ne saurait tarder. 

Si vous êtes pressé, les index et les annexes vous permettront de retrouver 
rapidement l’information dont vous avez un urgent besoin, et de sortir de 
l'incertitude qui nuit à la profondeur de votre sommeil. 

Si vous êtes paresseux, recopiez bestialement les procédures qui fleu- 
rissent dans ces pages. Avec un peu de chance vous en trouverez une qui vous 
conviendra. 

Si vous êtes indépendant, oubliez les conseils qui précèdent et décidez 


vous-même de la manière dont vous consulterez cet ouvrage. 


Quelle que soit la méthode adoptée, travaillez toujours avec HP-41 à vos 
côtés. 

Les programmes présentés n’excèdent généralement pas quarante instruc- 
tions. Ils sont donc rapidement introduits au clavier. Suivez-en pas à pas l’exé- 
cution (fonction ssT) et utilisez au maximum la fonction AVIEW pour vérifier 
constamment le contenu des différents registres. 

Notre but (ambitieux) est d’être à la fois instructif et distrayant. Program- 


mer est un plaisir que nous souhaitons vous faire partager. 
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Lorsqu’en septembre 1979 le HP-41 apparut en France, il représentait un 
étonnant saut qualitatif dans le domaine des ordinateurs de poche. Le pre- 
mier de sa catégorie il autorisait l’introduction, le traitement et l’affichage de 
chaînes de caractères. La voie était ouverte pour un dialogue complet entre 
le calculateur et son utilisateur, dialogue que favorisait encore les possibilités 
sonores du système. 

Aussi importantes que soient ces caractéristiques elles ne représentent 
que la partie immergée de l’iceberg. L'existence d’un clavier et d’un aff- 
chage alphabétique conduit à d’autres caractéristiques, certaines immédiates, 
et d’autres plus profondes et plus riches liées à l’architecture du calculateur. 

La première caractéristique est l’affichage ”’en clair”, et non plus en 
code, des fonctions programmées. L’appellation de ’langage machine spé- 
cialisé”, utilisé jusqu'ici pour les calculatrices programmables, est maintenant 
inadéquat. Tout juste peut-on parler, pour le HP-41, de langage d'assemblage 
spécialisé. En fait, en développant ce calculateur HEWLETT-PACKARD a éla- 
boré un langage évolué original qui lui confère un ensemble de propriétés 
qui restent, à l’heure où nous écrivons ces lignes, uniques. 

De la compréhension de ces possibilités dépendra la façon dont vous utilise- 
rez votre HP-41 : comme une calculette hypertrophiée ou comme un ordinateur 
puissant dont la souplesse vous évitera de nombreuses heures de navigation à 
l'estime. Vous pourrez (devrez!) structurer vos programmes. 

Affirmer que le langage HP-41 est un langage évolué surprendra certains. Il 


est donc nécessaire d’étayer cette thèse d’un nombre raisonnable d'arguments. 


CE LANGAGE EST UN LANGAGE INTERPRÉTÉ 


Les instructions que vous introduisez dans la mémoire de la machine ne 
sont pas immédiatement compréhensibles par le microprocesseur. Avant d’être 
exécutées elles doivent être traduites et décomposées en une série (parfois très 
complexe) de micro-instructions qui peuvent, elles, être appréhendées par la 


puce” du HP-41 cette opération de décryptage se nomme l'interprétation. 
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fl FAUT LE 


TRABUIRE EW 





À titre d'exemple l’exécution de RCL 30 (rappel en X du contenu du 30ème 

registre de donnée) va déclencher une impressionnante cascade d'opérations : 

— Calcul de l’adresse réelle du registre 30, dont la localisation dépend de la 
taille de la mémoire. 

— Vérification de l’existence de ce registre, avec le cas échéant l’affichage 
du message “NONEXISTENT” et arrêt de l’exécution (si le drapeau 25 
n’est pas armé). 

— Si la montée de la pile opérationnelle n’est pas autorisée par l’instruction 
qui précède (cix, 2+, 2—) il y a alors chargement du contenu du registre 
adressé dans X , sinon s’effectue un décalage préalable de la pile vers le 
haut avant l’exécution de cette opération. 

Que vous ayez suivi ou non le détail de la manœuvre (que nous avons outra- 
geusement simplifiée) vous êtes à même de percevoir la différence entre une 
instruction en langage évolué (RCL 30) et le langage machine (tous les calculs 


et transferts de valeurs que le microprocesseur vient d'exécuter pour vous). 


LE HP-41 DISPOSE D'UN LANGAGE SYMBOLIQUE 


Un ordinateur, quel qu’il soit, occupe les trois quarts de son temps à 
rechercher des informations dans un coïn de sa mémoire pour les transférer 


ailleurs. ] se peut qu’au passage ces informations soient modifiées mais ce 
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n’est pas absolument nécessaire ! 

Pour effectuer ces transferts le microprocesseur doit connaître les posi- 
tions de départ et d’arrivée des informations, ce que l’on nomme les adresses 
absolues. 

Il existe deux types d'informations : 

— Les données : valeurs numériques ou groupe de caractères ; 

— Les instructions, dont l’enchaînement constitue un programme. 

Au niveau du langage machine ces adresses sont toutes numériques. Mais 
l'utilisateur moyen n’a rien d’un microprocesseur, il lui est plus facile de retenir 
des mots que des numéros : les programmeurs préfèrent les symboles aux 
nombres. 

Le microprocesseur doit donc effectuer la tâche fastidieuse consistant à 
mettre en correspondance le symbole et l’adresse absolue qui lui permettra 
d'atteindre l’information désignée. Il peut le faire par l’intermédiaire de ca- 
talogues comparables, dans le principe, à l’agenda qui vous permet quotidien- 
nement de retrouver un n° de téléphone à partir du nom d’un individu. 

On peut donc mesurer le degré d'évolution d’un langage par son degré 
de symbolisme. Afin de mieux situer le langage HP-41 nous reproduisons le 
tableau donné par DANIEL-JEAN DAVID, dans ’PROGRAMMER EN PASCAL” 
(Éditions du P.S.I.), en le complétant quelque peu : 


OBJETS LANGAGES 


LANGAGE Basic FORTAN HP-41 — 
MACHINE 
VARIABLES 


SYM NUM 
NUM SYM 


ÉTIQUETTES 
CONSTANTES 


On constate que le langage HP-41 y occupe une position originale non 





BETA ET RTE 
ae Me NE de den 
Eu ru Es 


dépourvue d'intérêt. 
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Dire que les sous-programmes et les étiquettes sont symboliques signifie 


que l’on peut écrire la séquence suivante d’instructions : 





GIHLBL “JEU 
62 KEG “INIT* 
GSEKLEL "TOUR" 
G4 KEG *JOUEURI" 
OS XEQ “FIN?” 


Gé XEG “JOUEURZ* 
Gr KEQG "FIN?" 

88 GTO “TOUR” 

63 END 





Ce qui, sans commentaire additionnel est incomparablement plus explicite 
que l’équivalent Basic : 
GOSUB 500 
GOSUB 1000 
GOSUB 3000 
GOSUB 2000 


GOSUB 3000 
GOTO 20 
END 





LE LANGAGE DU HP-41 EST MODULAIRE 


Dans le monde de la micro-informatique HP-41 est la seule machine qui 
autorise l’implantation en mémoire d’un nombre indéterminé de programmes. 
Chacun peut être créé, modifié, effacé et (si on dispose de périphérique de 
masse) lu ou écrit indépendamment. 

À cette indépendance physique s’oppose une dépendance logique. Tout 
programme peut commander l’exécution d’un groupe d'instructions appar- 
tenant à un autre programme il suffit que cette séquence débute par une 
étiquette alphabétique : LBL "X..." et s’achève par RTN ou END. 

Il est alors possible de décomposer un programme complexe en une série de 
sous-unités (elles-mêmes décomposables en blocs plus simples) selon les sains 
principes de la programmation descendante. Les problèmes posés par la ma- 


nipulation élémentaire des données sont ainsi renvoyés au niveau d’appels les 
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plus profonds et ne viennent plus noyer l’architecture logique du programme 


clairement détaillée aux niveaux supérieurs. 


Cette façon de faire offre de multiples avantages : Il devient très difficile 
de commettre des erreurs de conception dans l’agencement des opérations 
nécessaires à la résolution d’un problème. Si malgré tout, cela advenait, cette 


erreur serait rapidement localisée parmi un nombre restreint d'instructions. 
Il est également possible de tester individuellement chacun des blocs pour 


vérifier que les sorties obtenues correspondent bien aux valeurs espérées pour 


un jeu de données d’essais proposées en entrée. 





En conclusion, HP-41 dispose d’un langage interprété puissant. Chaque pro- 
blème peut être décomposé en sous-unités indépendantes facilement program- 
mables, chacune est désignée par un nom symbolique qui décrit sa fonction et 


simplifie son repérage. 


PROGRAMMATION SUR LE HP-41 


Il existe deux niveaux de programmation sur HP-41 : 


- Les programmes proprement dits, constitués en fait d’une succession d’appels 


de procédures éventuellement entrecoupés de tests. Toujours orienté vers la ré- 
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solution d’un problème spécifique, le programme résume la part que nous nom- 
merons "stratégique" de l’art du programmeur. Compréhensible à la simple 
lecture, un programme doit avoir une documentation interne par le biais des 
étiquettes et des commentaires (nous verrons par la suite comment introduire 
des remarques dans le corps du programme). 

- Les procédures (ou sous-programmes de traitement). Elles représentent le ver- 
sant "tactique" de la programmation. Une procédure est courte, rapide, elle 
économise au maximum l’espace programmable et altère le moins possible 


l’espace des variables. Elle correspond à l’exécution d’une tâche unique. 


Elle est souvent suffisamment générale pour être utilisée de multiples fois 
par un même programme, voire par des programmes distincts. Elle est donc 
susceptible d’être maintenue en mémoire de façon permanente. Ce fait impose 
une standardisation des méthodes de programmation, source d’une importante 
économie d’effort. Si une procédure répond à tous ces critères elle peut être 
considérée comme une nouvelle fonction du langage HP-41 démonstration de 


l'ultime qualité de ce langage : sa plasticité, son évolutivité. 


15 


PROGRAMMER HP-41 


16 


CHAPITRE II 
TESTS ET DRAPEAUX 
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Au tout début de la rédaction de ce livre il était prévu que ce chapitre, en 
raison de sa relative complexité, vienne clore l’ouvrage. Il nous est rapidement 
apparu qu’il était indispensable de maîtriser les concepts qu’il décrit pour 
pouvoir programmer HP-41 . Nous vous présentons donc sans plus tarder : les 
outils de la décision. 

Pour les anglo-saxons le mot "computer" désigne littéralement un calcu- 
lateur. Parce qu’il ne fait pas référence à la notion de calcul, l’équivalent 
français, ordinateur, nous semble plus significatif. 

Ordonner implique la nécessité d'effectuer des choix. À chaque instant 
le déroulement des opérations est déterminé par les instructions program- 
mées mais également par les événements antérieurs. L'ordinateur est amené à 
prendre des décisions : il sait faire des tests. 

HP-41 dispose de dix tests arithmétiques et quatre tests sur les indicateurs 


binaires (drapeaux). 








Remarque : Les fonctions ISG et DSE ne seront pas évoquées dans ce cha- 
pitre. Elles se comportent cependant comme des tests. 

Ces tests sont binaires car la réponse aux questions posées est obligatoire- 
ment OUI ou NON. 
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Structure générak 


non TEST Ou non OU 


Peut—tre 


Si la réponse au test est oui alors l’instruction qui suit est exécutée. 
La phrase : « Si tu as un zéro de conduite, alors tu auras deux desserts! » 


s'écrit en langage HP-41 courant : 





"NOTE?" | 
PROMPT Introduction de la note 
"DESSERT" Préparation de l'affichage 
x=p7 TEST 


"+ +2 .." Si OUI, modification de l'affichage 
AVYIEW Affichage 
« END. 





La clef d’une bonne utilisation des tests réside dans le choix de l’instruction 
qui suit. Ainsi dans l’exemple qui précède une ligne de texte vient en modifier 
une autre transformant le sens du message. Contrairement à d’autres langages 


celui du HP-41 autorise à faire suivre un test par une fonction quelconque. 


L'exemple qui suit illustre comment placer simplement la plus petite de 


deux valeurs initialement en X et Y. 





Dans un troisième exemple l’exécution du programme est interrompue 
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pour demander l'introduction d’une valeur si le registre X est nul : 


“VALEURT" 
RCL 86 
KH=6 "7 


PROMPT 
STO 84 





Remarque : Cette séquence est très utile pour initialiser un registre. L’arrêt du 
programme ne se produira que s’il est nécessaire. La tactique utilisée dans ce cas est 
de préparer une action qui, en fonction du test, sera exécutée ou non. 

Bien souvent, hélas, une seule instruction est insuffisante. Il faut alors 
introduire une rupture de séquence en utilisant XEQ ou GTO. 

L'appel d’un bloc d'instructions par XEQ (doit être préféré au simple 
branchement GTO. Après l’exécution de la séquence le programme conti- 
nue en séquence, facilitant sa lecture. 

L’instruction GTO doit être réservée au cas où le programme diverge en deux 


pavés" terminaux totalement distincts. 


LES DRAPEAUX ET LA DESCRIPTION DE L'ENVIRONNEMENT 


HP-41 est un automate complexe. C’est un système dont le comportement 
est totalement déterminé par construction. Ses transitions d’un état à un 
autre sont reproductibles ; soumis à une même excitation il réagit toujours de 
la même façon. 

C’est essentiellement dans l’utilisation des drapeaux que cet aspect pré- 
sente un intérêt. HP-41 dispose du nombre confortable de 56 drapeaux qui lui 
permettent de mémoriser et d’analyser ce que nous appellerons l’environnement 


logique. 


DES DRAPEAUX POUR COMMÉMORER L'ÉVÉNEMENT 


Un drapeau est essentiellement une mémoire mais, contrairement aux re- 
gistres de données, ce ne sont pas des valeurs numériques qui sont stockées 


mais des événements. 
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Chaque indicateur peut prendre deux valeurs logiques : 


— il peut être armé (en anglais : SET) indiquant que l’événement à eu 
lieu ; 
— il peut être désarmé (en anglais : CLEAR) si l’événement ne s’est pas 
produit. 
Même si, et ce serait regrettable, vous n’utilisez jamais les drapeaux, HP-41 
les manipule lui-même pour son propre compte. 
Parmi les 56 indicateurs disponibles, 26 sont gérés uniquement par la ma- 
chine, 19 sont partagés entre elle et vous. Enfin les onze premiers (de 00 à 10) 


vous appartiennent en propre. 


Pour avoir un panorama complet des utilisations possibles des drapeaux 
le mieux est d'observer comment les manipule un orfèvre en la matière : le 


calculateur lui-même. 


LES 26 DRAPEAUX INTERNES 


Ce domaine réservé s’étend des indicateurs 30 à 55. Si vous tentez de modifier 
l’état de ces drapeaux par les instructions SF (SET FLAG) ou CF (CLEAR FLAG) 
HP-41 vous répondra avec une mauvaise foi évidente “NONEXISTENT” ; pourtant 
chacun de ces indicateurs a une fonction bien déterminée et leur existence ne peut 


faire l’objet d’aucun doute. 
Examinons-les en détail : 


M 30 - Ce drapeau indique au calculateur qu’une lecture de catalogue 
est en cours. Les fonctions du clavier sont alors redéfinies : la touche 
arrête ou reprend la liste des fonctions ; ou permettent d'avancer 
ou de reculer dans la liste, la touche fait sortir du mode catalogue. Les 
autres touches son inopérantes ; le seul rôle qui leur est laissé est de pouvoir 
servir de “frein” pour ralentir la vitesse du défilement. Notons, au passage, 
que cette possibilité de redéfinir le clavier sera exploitée encore davantage par 
certaines extensions comme le module TIMER. S'il est impossible de modifier 
l’état de ces drapeaux directement, il est par contre intéressant de les tester. 
En ce qui concerne l’indicateur 30, comme il n’est pas possible d’interroger le 
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calculateur pendant un catalogue, la réponse à la question FS? 30 sera toujours 
NON. Ceci sera pour nous d’un grand intérêt dans les programmes, comme nous le 


verrons tout à l’heure. 


M 31 à 35 - Ces indicateurs sont réservés au dialogue avec les périphériques 
connectables par l'intermédiaire de la boucle HP-IL . Comme nous ne traiterons pas 


des périphériques dans ce livre ces cinq drapeaux seront par prudence ignorés. 


M 36 à 41 - Ces drapeaux servent à définir le format d’affichage des nombres. 
Ce sont de curieux drapeaux internes car ils sont en pratique modifiés par l’uti- 
lisateur. Ces modifications ne s’effectuent pas par le biais des fonctions SF ou CF, 
mais par l'intermédiaire des instructions de formatage : FIX, SCI et ENG. Ils illus- 
trent parfaitement le rôle de mémoire que peuvent jouer les indicateurs binaires. Les 
quatre drapeaux 36 à 39 conservent le nombre de décimales à afficher, pour cela la 


numérotation binaire est utilisée : 


RE ns 
CL Coephppepuls 
Bi phppfopfpopipolr 


[38 [2 _Jofolil1/ofof1l110)0) 
[37104  Jofololol1fifilifolo) 
[36 [8 _Jofofojolofofofofif1] 





Une règle générale peut être déduite de cet exemple : pour mémoriser, à 
l’aide des drapeaux, un état parmi n possibles il est nécessaire d'utiliser d 
drapeaux avec : d = 1087/1082, d étant arrondi à l’entier supérieur. Pour dix 
états possibles (de 0 à 9 décimales) on obtient : los10/1082 = 1/0,301 = 1,585. 
D'où d = 4 


M 40 et 41 - Comme les quatre drapeaux précédents ils ne sont jamais modifiés 


par le calculateur. Leur rôle est de définir le mode FIX, SCI ou ENG de l’affichage en 
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fonction du code : 





Comme il existe trois modes d'affichage, la règle énoncée ci-dessus confirme 


que deux drapeaux sont nécessaires. 


Si les indicateurs 36 à étaient accessibles à l'utilisateur, définir un affichage 


scientifique avec trois décimales pourrait se faire grâce à la séquence : 
CF 36 CF 37 SF 38 SF 39 (Nombre de décimales) 
CF 40 CF 41 (Mode scientifique) 


On comprend que les concepteurs du HP-41 aient préféré offrir à l’utilisa- 


teur les fonctions FIX, ENG et SCI. 


M 42 ct 43 - Ce sont encore des drapeaux modifiables par le biais d’ins- 
tructions spéciales pour définir l’environnement de travail du HP-41 . Ils pré- 
cisent quelle est l’unité d’angle utilisée. Trois unités étant disponibles DEGRE, 
RADIAN ou GRADE deux drapeaux sont encore nécessaires pour mémoriser le 
mode courant suivant un code comparable à celui utilisé pour le mode d’affi- 


chage : 


apofof:i. 





É1RSESRE 


Le mode d’affichage ou l’unité d’angle choisie sont clairement visibles à 


l'affichage, mais un programme qui s'exécute ne peut consulter cet affichage. 


Nous vous proposons donc une courte séquence qui insérée dans un programme 
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vous permettra de connaître le mode actuellement sélectionné : 





En fin d’exécution le registre X contient 0 si l’unité d’angle est le grade, 
la fonction SIGN n’a pas été exécutée et le doublement du registre X par la 


fonction STO+X n’a pas modifié grand chose. 


Si l’unité est le radian le contenu de X est 1, la fonction SIGN étant cette 
fois prise en compte mais pas STO+x. Enfin dans le cas où il s’agit de degré, 


les deux fonctions qui suivent les tests donnent 2 comme résultat final. 


La même séquence, légèrement modifiée, vous permettra d’obtenir sous 
forme de chiffre de 0 à 2 le format d’affichage courant, nous vous laissons le 


soin de l’établir. 


M 44 - Ce drapeau est remis à zéro par le calculateur au moment de la 
mise sous tension. Î[l est armé par l’instruction ON. Son rôle, modeste, est 
d'éviter l'extinction du calculateur après les fatidiques dix minutes d’inacti- 
vité. Une fois levé le seul moyen de le désarmer est d’éteindre le calculateur. 
En programmation il représente donc le cas très particulier d’un indicateur à 
usage unique | 

M 45 à 47 - Ces trois drapeaux, tout comme l'indicateur 30, sont tou- 
jours désarmés quand l’utilisateur les teste. Ils concernent des fonctions in- 


times du calculateur : 


Le 45 indique qu’un nombre ou une chaîne de caractères est en cours 
d'introduction, la chose est concrétisée à l’écran par le tiret qui suit la valeur 
déjà introduite. Le comportement de la touche d’effacement est également 


modifié, si ce drapeau est armé seul le dernier caractère affiché sera éliminé. 


L’indicateur 46 joue un rôle identique mais lors de l’introduction d’ins- 


tructions nécessitant plusieurs frappes de touches. 
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Le drapeau 47 indique quant à lui que la touche jaune vient d’être enfoncée, 
il est matérialisé à l’affichage par l'indication SHIFT. 


BAT USER 


ON USER PRGM ALPHA 





M 48 - Cet indicateur précise si le calculateur est ou non en mode alpha. 
Quand ce mode est actif l'indication ALPHAapparaît à droite de l’affichage, 
le contenu du registre ALPHA est visualisé, et le clavier est complètement 
redéfini, chaque touche codant maintenant pour un caractère alphabétique ou 
une fonction spécifique. L'état de ce drapeau peut être modifié soit en agissant 
sur la bascule en haut du clavier, soit par les fonctions AON et AXOFF. 
Il peut être testé en cours de programme, enfin le calculateur le désarme à la 
mise sous tension ou lors du passage en mode programme. 


M 49 - L’indicateur de décharge de la batterie. Il est associé à l’affichage 
de BAT à gauche de l’écran. 










C 


L'invention de 


\a dyna mol 


Si vous avez à exécuter un long programme en utilisant HP-41 de façon 
autonome, surtout s’il est équipé d’accumulateurs et non de piles, vous pouvez 


placer à certains endroits stratégiques de ce programme la séquence : 
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qui éteindra le calculateur avant qu’il ne plonge de lui-même dans un profond 
coma avec perte complété de la mémoire "permanente. 

M 50 - Ce drapeau indique au calculateur si un message a été placé à 
l’affichage par les fonctions VIEW ou AVIEW. S'il est armé, le calculateur exhibe 
le registre X en mode numérique, le registre ALPHA en mode alphabétique ou 
promène le canard (>) à l'écran si un programme s’exécute. 

M 51 à 54 - Encore quatre drapeaux qui resteront pour vous toujours à 
l’état zéro. Le calculateur, lui s’en sert pour savoir que la touche ssT vient 
d’être pressée (indicateur 51) ou se souvenir que l’on est en mode programme 
(indicateur 52), dans ce cas il affiche l'instruction sur laquelle est arrêté le 
pointeur programme et considère toute pression de touche comme une instruc- 
tion à insérer dans le texte du programme. HP-41 peut savoir (indicateur 53) 
si un périphérique est prêt à poursuivre un fructueux dialogue (l'imprimante 
a-t-elle vidé son tampon, une carte a-t-elle été introduite dans le lecteur ? ). 
Enfin l'indicateur 54 indique qu’une pause (PSE) s'exécute. 

Œ 55- Si vous ne disposez pas d’une imprimante cet indicateur sera, pour 
vous, toujours désarmé. Dans le cas contraire il sera armé dès la mise sous 
tension de l’appareil si un périphérique imprimant est connecté. 

La description que vous venez de lire nous à paru indispensable à une 
bonne compréhension des mécanismes internes de HP-41. La description de 
ces drapeaux faite dans le manuel reste difficilement compréhensible. Nous 


avons tenté d’être plus explicite. 
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DES DRAPEAUX PLUS ACCESSIBLES 


Examinons maintenant ce qu’il est possible de faire avec les indicateurs 


F00 à F29 directement accessibles à l’utilisateur. 


En s’appuyant sur la description qui précède, nous pouvons classer les 


applications possibles en deux catégories : 


— la mémorisation d’une option à long terme. C’est le cas des drapeaux 
F21 (arrêt ou non après les fonctions VIEW et AVIEW), F24 (autorisation des 
dépassements en cours de calcul), F26 (activation du signal sonore), F27 
(modeusER), F28 et F29 (point ou virgule décimale, séparateur de groupe 
de chiffres). 

— la détection d’un événement transitoire, nécessitant généralement un 
traitement rapide. Entrent dans cette catégorie, les drapeaux F22 (dé- 
tection d’entrée numérique), F23 (détection d'entrée alphabétique), F25 
F25 (détection d’erreur). 


C’est dans cette seconde catégorie que se place le cas très important d’un 
drapeau utilisé comme variable logique pour mettre en mémoire le résultat 


d’un test. 


Les choses se passent selon le schéma suivant : 


Gi CF #%4 
G2 TEST? 


M3 SF XX 





Le drapeau choisi est préalablement désarmé, puis, en fonction du résultat 


du test, il est éventuellement réarmé. 
Cette méthode est utile : 


— quand les valeurs testées ne sont pas celles qui doivent être traitées. 
Entre le test initial et le traitement il faut alors modifier le contenu de 
la pile. Après cette modification un deuxième test, portant sur l’état du 
drapeau, est effectué pour tenir compte du résultat du premier ; 

— quand le test est effectué dans une procédure, et le traitement résultant 


pris en compte par le programme appelant. Il peut s’agir en particulier 
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de la détection d’une erreur ; 


— pour réaliser la structure ST...ALORS...SINON. On obtient dans ce cas 
une séquence du type : 





a1 
LS ps 
5 
64 
45 
a 
rs 





CF KXx 
TEST? 
SF K# 
FS7 K% 


KEG“TETI" 
FCPC RE 
KEG"TRTZ"* 


Les applications des drapeaux sont donc multiples. Il vous faut les connaître 


toutes si vous désirez obtenir le maximum de votre HP-41 . Et si les considé- 


rations qui précèdent ne vous ont pas trop effrayées voyez la suite. 





Si Aag 96 arme” 








L'ensemble des exemples étudiés jusqu’à maintenant concerne l’exécution 
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d’une instruction si une condition unique est vérifiée. Schématiquement cela 


correspond à : 
TEST ? 
“L 
INSTR. non 


suite 
La première question que nous aborderons est l’exécution d’une instruc- 
tion si une condition n’est pas vérifiée. Cette opération correspond à la néga- 


tion logique. En voici le schéma : 
TEST ? 


J _ 
oui INSTR. 


suite 
La méthode la plus immédiate pour obtenir ce résultat est de remplacer 
le test initial par un autre qui teste la condition inverse. Nous sommes alors 
ramené au cas de figure précédent pour lequel l’instruction est exécutée si la 


condition est vérifiée. Le tableau qui suit donne les tests disponibles et leurs 
contraires : 





FC? 

FC?C 

sea 
Inexistant 
REe=A 7 
REY? 


Inexistant 
RHEZ=T? 


Inexistant 
Inexist sant 





29 


PROGRAMMER HP-41 


Hélas, nous constatons que la méthode n’est pas universelle. Certaines 
instructions de test n’ont pas de négation. Il existe cependant un procédé 
général pour obtenir l’inversion d’un test, il suffit d’utiliser un "négateur 
universel". 

Derrière ce nom pompeux se cache simplement un test dont la réponse 
est toujours négative. Nous avons adopté l'instruction FS? 30. Toujours en 


utilisant notre notation schématique on obtient : 
TEST ? 


Le 


F5? 30 


INSTR. 


suite 
Si la réponse au test est négative le calculateur saute le pas suivant (FS ? 30) 


et exécute l’instruction qui suit. Dans le cas contraire Fs ? 30 sert littéralement 


de tremplin et l’instruction n’est pas exécutée. Comme exemple, la séquence : 


gi K<a? 


g2 FS? 34 





est rigoureusement équivalente à X > 07, l’un des tests qui font défaut au 


calculateur. 


DE PLUS EN PLUS FORT... 


& Et maintenant, Mesdames et Messieurs, nous avons le plaisir et l’avantage de 
vous présenter un numéro exceptionnel : l’exécution conditionnelle d’une instruction 
en fonction des résultats conjoints de deux tests ! » (Silence sous le chapiteau, les 
tambours roulent, sur la piste les artistes se concentrent). 

Pour réaliser ce tour de force HP-41 ne dispose pas (encore) d’instructions 


micro-programmées. Il va falloir innover. 
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Examinons préalablement le résultat de la mise en séquence de deux tests 


que nous appellerons T1 et T2. Le schéma d’exécution est le suivant : 





L’instruction INST est exécutée si : 
— T1 n’est pas vérifié. (Quel que soit le résultat de T2) 
— Tiet T2 sont simultanément vérifiés. 
Dans le monde de la logique Booléenne cette fonction porte le nom d’impli- 


cation et admet la table de vérité suivante : 


exécutée 


exécutée 


non exécutée 





exécutée 

Transposée en langage courant cette fonction correspond à des phrases du 
type : 

« Si le fait qu’un animal soit un batracien implique que c’est un vertébré 
alors les zoologistes sont des gens raisonnables ». 

Dans le cas d’une grenouille la première et la seconde conditions sont 
vérifiées (ligne 4 de la table de la vérité) et nous ne mettrons pas en doute la 
raison des zoologistes. 

Il en est de même pour une araignée (ligne 1) ou un gorille (ligne 2) qui 
ne sont pas des batraciens. Pour ceux-ci, “être ou non vertébré” laisse les 
zoologistes raisonnables. 


Cependant, à la suite de notre récent voyage sur Mars, nous avons eu la 
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chance de capturer un KROAQ,. Cette charmante bestiole est à l’évidence un 
batracien, mais n’a pas de vertèbre (??). 

Lorsque nous avons présenté l’animal aux zoologistes il ne fut pas néces- 
saire de nous reporter à la ligne 3 de la table de vérité pour comprendre, à 
leurs airs hagards, que les zoologistes n'étaient plus des gens raisonnables. 

Quittons notre z00 imaginaire pour revenir aux préoccupations plus terre 
à terre des pauvres programmeurs. 

L’implication est une des fonctions logiques les plus difficiles à appréhen- 
der. [1 serait préférable de disposer, à la place, des deux fonctions fondamen- 


tales de la logique booléenne : les fonctions ET et ou. 


LA FONCTION OÙ 


Le ou logique est vérifié si l’une, au moins, des deux conditions qu'il relie, 


est vérifiée. Elle admet donc la table de vérité suivante : 


non exécutée 
exécutée 


exécutée 


exécutée 





En pratique la fonction où peut se déduire de l’implication : 
T1 ou T2 peut aussi s’écrire : 

NON T1 implique T2 ou encore 

NON T2 implique T1. 
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I suffit donc pour obtenir un ou de prendre l’inverse de l’un des tests et 
de le faire suivre par le second. 

Ainsi x > 0? est équivalent à X > 0? OU X = 07, et donc à x < 0? implique 
X = 0? 

Nous obtenons donc deux nouveaux équivalents de notre instruction man- 


quante : 


Bi KE 
GB? X=67 





Et nous conclurons péremptoirement en affirmant que : 
«Si ce n’est pas un batracien OU si c’est un vertébré alors les 


zoologistes sont raisonnables». 


LA FONCTION ET 


L’obtention de la fonction ET nous demandera un peu plus d’effort. (Le 
roulement de tambour s’intensifie, une légère angoisse étreint le public.) 

I1 existe heureusement une relation, due à DE MORGAN qui relie les fonc- 
tions ET et OU : 

T1ET T2 = NON (NON T1 OU NON T2) 

Comment faire avaler çà à HP-41 ? Avec de l’ordre et de la méthode, on peut. 
Pour le lecteur attentif, en vertu de tout ce qui précède, il est évident que : 
TI1ET T2 = NON (T1 implique NON T2) 

Pour obtenir la négation de l'implication entre parenthèses, nous utilise- 
rons le négateur universel. 
Voyons la chose sur un exemple. Nous désirons exécuter l’instruction BEEP 


si le drapeau 01 ET le drapeau 02 sont simultanément armés. On pourrait 


33 


PROGRAMMER HP-41 


écrire : 


FG7 ai 
GTO «6% 
FS7?7 02 
REEP 
BSxLEL 49 








L’exécution en est plus rapide, la séquence utilise un octet de moins et fait 
l’économie d’une étiquette numérique. (Coups de cymbales, musique. Sur la 


piste les artistes saluent pour répondre aux acclamations du public. Merci). 


Mais le spectacle continue. Nous vous proposons un petit exercice pour 


faire la synthèse de ce chapitre. 


En utilisant deux drapeaux, il faut écrire quatre procédures de telle sorte 


qu'aucune d’entre elles ne puisse être exécutée deux fois de suite. 


La première procédure ajoute "A" au contenu du registre alpha (instruc- 
tion " A"), la seconde ajoute "B" (" B"), la troisième et la quatrième ajoutent 


respectivement "C' et "D". 


Chaque procédure se termine par AVIEW, RTN. Îl sera pratique d’utiliser les 
étiquettes alphabétiques locales (LBL A, LBL B, LBL C et LBL D) pour désigner ces 


procédures. 


À l'exécution vous pourrez obtenir des chaînes de caractères du type : 
"ACDBDCACB", mais pas "ABBCAAD" qui contient des séquences de lettres 


identiques. 


Avant que les feux de la rampe ne se rallument pour la suite du spectacle, 
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un conseil. Si une instruction vous semble faire cruellement défaut, ne baissez 
pas les bras. Un peu de réflexion, un brin d’astuce et surtout une lecture 
attentive des bons auteurs, vous permettront toujours de franchir l’obstacle. 

Vaincre une difficulté n’est pas perdre son temps. C’est ainsi qu’on s’élève 
peu à peu vers les sommets de la programmation. Un grand pas pour vous, 


un petit pas pour l’humanité. 
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Avant d'aborder toute programmation il est essentiel de se pencher lon- 
guement sur la pile opérationnelle à quatre registres. Cette pile est le cœur 
du système. Toutes les valeurs doivent transiter par elle et c’est en son sein 
que s’effectue la majorité des opérations. Il est donc nécessaire de la maîtriser 
complètement et de pouvoir suivre en permanence le ballet des valeurs dans 
les registres. 
La pile opérationnelle, associée à la notation polonaise inverse, est la 
constante qui, depuis leur origine, caractérise les calculateurs HEWLETT-PACKARD. 
Au dos d'HP-35 se trouvait déjà un petit aide-mémoire fort susceptible 
de désorienter les téméraires acquéreurs de cette première calculatrice sophis- 


tiquée. Nous ne pouvons résister au plaisir de vous le présenter. 














t T LA PILE OPÉRATIONNELLE CONSISTE EN QUATRE REGISTRES 
Z Z X, Y, Z ET T, UN CINQUIÈME (S) SÉPARÉ EST DISPONIBLE. 
y T 
x AFFICHAGE x x, y, Z, t ET s SONT LES CONTENUS RESPECTIFS DE X, YŸ, Z, T ETS. 
s | s L'AFFICHAGE MONTRE TOUJOURS X. 
[errenr X+—y ] [Re STO [rc] 
re T 1 + T 1 Zn ï 
z z z  Z 2e 2 5 7” em 
Et Y y. 0 À y 1 bd: su RS 
ep x PR qe x = X 
LA PILE EST AUTOMATIQUEMENT DÉCALÉE VERS LE HAUT PAR UNE INTRODUCTION EN X OU 
PAR | RCL |À MOINS QUE L’INTROCUCTION NE SUIVE IMMÉDIATEMENT | CLx |, | sr0 lou 
*[-[x[+] V; Im, sin°, ete ENTER | 
y T 


| 


2 — ——— 7 





z Z “APRÈS TOUTE FONCTION 

y Y=-X æ Ÿ Y————— Ÿ TRIGONOMÉTRIQUE, Z EST 

x Dex] x X—Hx) —æ x DUPLIQUÉ DANS T. 
Exemple RER Ex t8=1 
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Les choses ont depuis quelque peu évolué. Le stockage d’une valeur en 
mémoire n’inhibe plus la montée de la pile. L'opération exponentiation est 
maintenant et non plus [*], apparemment plus logique, mais en oppo- 
sition complète avec l’ordre de lecture des formules. Enfin l’extension, sur 
HP-41, des opérations de rappel de stockage et d'échange, ainsi que l’arith- 
métique directe dans la pile, en a considérablement accru la maniabilité et la 
puissance. 

Ce livre aurait pu s’intituler “tout faire dans la pile”. En effet, la quasi tota- 
lité des procédures que nous allons développer n'utilise que les cinq registres : 
L, X, Y, Z,T qui la constituent. 

Pourquoi ce parti pris ? 

Ce n’est pas uniquement par esprit sportif, pour le simple plaisir de faire 
“tenir dans la pile” un algorithme complexe, ce plaisir existe, sans conteste, 
mais l’effort accompli est rapidement rentabilisé pour trois raisons : 

— une économie de temps : l’accès aux registres mémoire est sur ce type 
de calculateurs relativement lent (avant toute opération le microproces- 
seur doit en permanence tester l'existence des registres adressés). Cette 
opération ne concerne pas les registres de la pile toujours présents quelle 
que soit la partition choisie ; 


— une économie d’espace : ne pas utiliser un registre pour stocker un 
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résultat intermédiaire, c’est le rendre disponible pour autre chose ; 

— mais surtout travailler dans la pile, c’est éviter d’accroître la com- 
plexité de la gestion de la mémoire, et pouvoir utiliser une procé- 
dure sans avoir à la modifier pour tenir compte de l’implantation des 
variables du programme appelant. 

Ainsi les paramètres d’une procédure sont transmis par la pile, les calculs 
effectués dans la pile, les résultats finalement récupérés à partir de la pile : la 


procédure forme alors un tout insécable, transposable, universel. 


LE LOGIGRAPHE 


La résolution des problèmes que nous allons aborder nécessite une utili- 
sation optimale des mouvements de la pile. Il est donc utile de disposer d’un 
outil qui permette d'obtenir rapidement ces solutions optimales. 

Avant de décrire cet outil et pour mieux vous en faire sentir l'intérêt, nous 
vous proposons un petit exercice : 

À partir de la situation de droite il faut obtenir celle de gauche en n’utili- 


sant que deux instructions 


T=4 T =3 
Z = 3 Z = 4 
Y =2 Y=1 
X = 1 X = 2 


Si vous pouvez résoudre ce problème en moins de 10 secondes vous pouvez 
allègrement sauter la suite de ce chapitre! Dans le cas contraire, vous tirerez 
profit de l’utilisation du Logigraphe. 


Considérons nos quatre registres dans la position initiale suivante : 





L'analyse combinatoire nous indique que le nombre de permutations pos- 


sibles de 4 éléments est égal à 4! soit 24 états possibles. 


40 


FACE À LA PILE 





A1 


PROGRAMMER HP-41 


Le logigraphe est une représentation dans l’espace, sous la forme d’un 
graphe sagittal de cet ensemble de positions. La transition de l’une à l’autre 
s'effectue grâce aux instructions x<>Y (double flèche +), RDN (flèche simple 4 
) ou rt opération inverse de la précédente. 

Il se présente sous la forme de deux ensembles hexagonaux superposés. 
Sur chaque hexagone se greffent trois cycles, chacun correspondant à une 
permutation circulaire complète des éléments de la pile (quatre RDN successifs). 
On passe d’un cycle à l’autre par la fonction x<>Y qui modifie l’ordre des 
valeurs. 

L'utilisation du logigraphe est simple : on code la position finale désirée, 
soit "cdab" pour l’exemple qui précède, puis on repère cette combinaison sur 
le logigraphe, on cherche alors le plus court chemin qui relie cette combinaison 


à la position initiale. Toujours dans notre exemple on obtient la séquence RDN, 


RDN, X<>Y, RDN, RDN,X<>Y 


chca bdac 
a dacb, 
à À 
LT, 
LA 





Cette séquence d'instructions est celle que nous aurions utilisée si nous 
disposions d’une HP-65 ou 67. Mais HP-41 dispose d’une instruction générale 
d'échange de registre qui nous permet d’obtenir deux nouvelles fonctions de 
permutation de registre de la pile : X<>z et x<>T. 

Si on reporte ces fonctions sur le logigraphe on voit que ces deux instruc- 
tions créent de véritables court-circuit à travers la structure. En les utilisant 


la séquence précédente de six instructions se ramène à deux : X<>Z,RDN. 
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Pour écrire les programmes qui composent ce livre le logigraphe nous à 
apporté une aide irremplaçable et nous trouvons inconcevable de commencer 
la rédaction d’un programme sans en avoir une copie sur la table de travail. 

À titre d'exemple de mouvements dans la pile nous vous proposons une 
première procédure : TRIST (TRI STACK, mélange affreux mais pas triste de 
français et d'anglais). Son but est d’ordonner 4 valeurs contenues dans les 


registres de la pile. 





Gi+LBL “TRIST" 
K>V7 
H<EY 
KE T 
K> TT 
K<>Y 


né € 
H>T? 
REY 
RT 

DV? 
REY 





Si le drapeau 00 est désarmé cette procédure prend fin à la ligne 20. Si ce 
drapeau est armé les pas 21 et 22 ont pour effet d’inverser le contenu de la 
pile (voyez le logigraphe) ce qui fournit un classement par ordre croissant de 


Xà T. 


OPÉRATIONS ET REGISTRE L 


Postulat : tout traitement arithmétique simple de quatre valeurs peut tou- 
jours être traité dans la pile. 
Avant de développer ce principe fondamental et ses applications, nous 


devons préciser le rôle de chacun des registres de la pile opérationnelle. 


Le registre X 


C’est le point nodal, le lieu où tout converge. C’est l’ombilic de la pile. 


Bien que sur HP-41 ce registre ait perdu, grâce aux fonctions VIEW et AVIEW, 
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son rôle de fenêtre de communication étroite, il reste impliqué dans la totalité 
des opérations arithmétiques, logiques, ou de transfert de valeurs, effectuées 
par la machine. Les problèmes posés par l’utilisation de la pile se ramènent 


pour l'essentiel à placer dans le registre X la bonne valeur au bon moment. 


Le registre Y 


Il est un peu le faire valoir du précédent. Son rôle est plus restreint pour 

deux raisons : 

— de nombreuses opérations ne demandent qu’un seul argument parmi 
les fonctions disponibles neuf d’entre elles seulement utilisent conjoin- 
tement le registre Y et le registre X (+, -, *, /, Y*, %, Z+,X-). 

— l'extension des opérations d’arithmétique directe à tous les registres de 
la pile fait que le registre Y n’est plus obligatoirement l’opérande de ces 


opérations. 


Le registre T 


Il allie la puissance à la fragilité. Toute valeur contenue dans ce registre est 
finalement vouée à deux destins contraires soit son élimination pure et simple 
lors de l’introduction dans la pile d’une nouvelle valeur, soit sa duplication 
après une opération combinant X et Y. 

À propos du registre T, nous ne pouvons résister au plaisir de vous pré- 
senter un ancêtre de l’utilisation de la pile opérationnelle qui sévissait déjà 
à l’époque lointaine où les calculateurs n'étaient pas programmables, voici 
l'algorithme de HORNER de résolution des polynômes : 

2° +82 — 62° + 4x —1 

Ceci est un polynôme de degré quatre qui a bien voulu nous servir d'exemple. 
Le problème est d'obtenir rapidement sa valeur pour un x donné. 

Ce polynôme peut être réécrit sous la forme : 

(((x +3) x x) + (—6)) x x + 561 

ce qui n'apparaît pas immédiatement comme une simplification, notons 


cependant que le calculateur n'effectue plus d’élévation de puissance mais 
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uniquement des additions et des multiplications, opérations beaucoup plus 
rapides. La notation polonaise inverse n’utilisant pas de parenthèses on peut 
espérer une écriture plus simple, enfin, suprême raffinement, les propriétés du 
registre T nous permettront de n’introduire qu’une fois la valeur de la variable 
qui sera reproduite à chaque opération. 


L’algorithme devient finalement : 
Saturer la pile (et en particulier T) avec la valeur de la variable X 
ee EE 
RÉPÉTER introduire le coefficient de rang N (par ordre décroissant) avec son signe 


Additionner 

Multiplier 
JUSQU'À ce qu'il n'y ait plus de coefficients. 
Ajouter la constante avec son signe. 
FIN 


Pour notre polynôme nous obtenons : 


5 
+ 
4% 
Le 
CHS 
+ 
+ 
4 
+ 
% 
il 


L] 

m 
£ 
en) 





C’est simple, rapide, élégant et toujours d’actualité ! Mais revenons à nos 


registres. 


Le registre Z 


Il a pour seule particularité de n’avoir rien de particulier. C’est par excel- 


lence le registre de stockage des résultats intermédiaires. 
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Le registre L 


Fait-il vraiment partie de la pile? Il semblerait que non. L’instruction 
cisT (CLEAR STACK) ne l’efface pas et, si vous disposez de l’imprimante il 
est ignoré par l'instruction PRSTK qui affiche le contenu de la pile. 

Logiquement, cependant, la réponse est affirmative : Toutes les opérations, 
à l’exception de l’arithmétique directe, chargent dans L le contenu de X. 

Ce registre reste cependant un îlot de stabilité dans l’univers tourbillon- 
nant de la pile. Seules les instructions LASTX et X<>L permettent de réintro- 
duire la valeur qu’il contient dans le carrousel. Il apparaît donc tout désigné 
pour jouer le rôle d’un accumulateur. 

Après cette brève présentation des personnages, mettons les en scène sur 


un scénario classique. 


RÉFLEXION AU SECOND DEGRÉ 


Le manuel de l'utilisateur des pages 135 à 138 présente deux versions d’un 
programme de résolution d'équations du second degré. La seconde version, 
destinée à montrer l'utilité des sous-programmes, permet une économie de 7 
lignes sur les 45 que compte la première. 

La version que nous vous proposons effectue ce travail en 14 lignes (70% 
d'économie) et, avantage supplémentaire, aucun registre extérieur à la pile 


n’est utilisé. 
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Mais examinons d’abord la version proposée par HEWLETT-PACKARD : 
le sous-programme calcule le déterminant, DELT A = b? — 4ac, et, après un 
tronc commun, pour chaque racine on ajoute ou retranche ce déterminant à 
la valeur —b, le programme se termine par la traditionnelle division par 2a. 


Comme à l’école! 


Il n’est pas question de critiquer le classicisme de cette méthode, mais sans 
refaire les mathématiques on peut pousser un peu plus loin l’analyse pour 
réécrire la formule sous une forme plus agréable sinon pour l’élève moyen du 


moins pour le calculateur : 


_— —b + Vb? — 4ac 
_ 2a 


Peut s’écrire également : 


—b b? c 


F2 Var à 


avec E = —b/2a et F = c/a 


z=E+VE -F 


I n’y à donc que 2 expressions à calculer à partir des 3 valeurs a, b, c. 


Nous disposons de 5 registres dans la pile, c’est donc plus qu’il n’en faut. 
Si à l’entrée de la procédure a est en X, b en Yet c en Z: 
— C/a s'obtient par CHS, ST/Z 
— b/2a s'obtient par ST+X, / 


2 2 
2? nous donne en X ”/4a et —b/2a est sauvegardée 


L’exécution de la fonction x 
en L. Il faut rappeler cette dernière valeur pour préparer le calcul des deux 


racines par LASTX, STO T, RDN. 


Calculons pour finir notre pseudo-déterminant que l’on additionne et sous- 


trait pour obtenir nos racines : 
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Gi+LEi “CORNEIL" 
CHS 
ST+< À 
ST+ € 


en 

KTe 
LASTÉK 
ETG T 
FTH 

+ 
SORT 
ES 
+ 

- EN. 





Cet exemple vous aura permis d'apprécier la souplesse que confère l’arith- 
métique directe dans la pile. Il démontre également que le manuel n’est pas 
parole d’évangile mais constitue cependant une bonne base de départ pour 


développer votre curiosité. 


LA CHASSE AU FORMAT 


Si on associe maintenant les indicateurs binaires, le registre L , et l’arith- 


métique directe dans la pile, on peut obtenir de très jolies choses. 


Imaginons qu’une procédure modifie le nombre de décimales affichées, nous 
désirons cependant restaurer l’affichage initial. Il est alors indispensable de 
connaître ce nombre de décimales avant de le modifier. Pouvons-nous arracher 
au calculateur ce renseignement précieux ? 

Il existe ainsi que nous l’avons vu dans le chapitre Il, mais codé sous forme 
binaire par les indicateurs 36 à 39. Rappelons que chaque drapeau indique 
une puissance de 2 et qu’il suffit d’additionner la valeur correspondante si 
l'indicateur est armé. 

C’est ce que réalise la procédure FM? (FORMAT ?) en testant successi- 
vement ces quatre drapeaux. Cette procédure ne demande aucun paramètre 
d'entrée, le nombre de décimales est renvoyé dans X, les registres T et L sont 


perdus : 
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GiéiBL "FH?" 
äz 9 


63 SIGN 
FS? 
ST+ 
ST+ 
FS?7 
ST+ 
ST+ 
FS? 
ST+ 
ST+ 


s go Ê 


TETE OU XI 6 
m 





La fonction SIGN au pas 02 a deux buts : placer la valeur 0 dans le registre 
L qui va nous servir d’accumulateur et initialiser à 1 (2°) le registre X. Des 
pas 04 à 14 le drapeau correspondant à la puissance de 2 présentée en X est 
testé et s’il est armé cette valeur est ajoutée au registre L. L’instruction ST+x 
double ce registre et permet de passer à la puissance de 2 suivante. En fin 
de programme le résultat final est replacé dans X par la fonction x<>L. Le 


contenu de L au retour de la procédure est donc toujours égal à 8. 
Résumons les avantages apportés par l’arithmétique directe dans la pile : 


— ces opérations ne perturbent pas l’ordre de la pile, un seul registre est 
modifié. (Le contenu du registre L est préservé) 

— si l’opérateur est impérativement en X, l’opérande peut, lui, se situer 
dans l’un quelconque des registres de la pile (y compris en X comme 


nous venons de le voir). 


Toujours dans le domaine de l’arithmétique classique voici un autre exemple 


de l’utilisation du registre L comme accumulateur : le changement de base. 


N 


L'homme a dix doigts, et comme il ne s’est pas abaissé à compter avec 
ses orteils la numération qu’il utilise est dite en base 10. En fait toutes les 


bases sont envisageables, un ordinateur comptera en base 2, et s’il existait des 
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composants électroniques à trois états stables on pourrait envisager d’utiliser 
la base trois. 

La procédure suivante permet d’obtenir la représentation en base b d’un 
nombre en base 10, avec b compris entre 1 et 99. 

Pendant l’exécution du programme, la pile contient : N nombre en base 
10, b base d’arrivée, Nb le nombre en base b, 10° où i est la puissance de b en 
cours de calcul. 

Si b est supérieur à 10, chaque chiffre de la nouvelle base est exprimé sur 


deux chiffres. 


Initialisation de Nb et 19 i. 


Reste de la division en L 


Addition du nouveau chiffre dans T. 


Multiplication rar 19 ou par 199 en fonction de 
la valeur de b. 
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Pour utiliser cette fonction il faut introduire la base puis le nombre et 
terminer avec XEQ "10-b". Le résultat est alors présenté en X. Les contenus des 
registres Z, T et L sont perdus. La base b est conservée en Y. 

Exemple : 

2 255 11111111 

16 255 1515 

Dans ce deuxième exemple la base étant supérieure à 10 chaque groupe de 
deux chiffres représente un seul chiffre dans la base d'arrivée, le résultat est 
donc 15 15 soit FF dans la notation hexadécimale. 

À titre d'entraînement, pour vous échauffer les neurones, voici un petit 
exercice : 

Soit la suite : 

10 - 11-12 - 13 - 14 - 15 - 20 - XX - 30 


Quelle peut être la valeur représentée par XX ? 


À LA “MOD” DE CHEZ NOUS 


Après cette étude des quatre opérations arithmétiques nous allons nous 
intéresser à des fonctions plus complexes dont HP-41 est abondamment pourvu. 
L'une d’elle, la fonction Mob (MODULO), avec laquelle nous allons explorer 
le riche domaine du calcul fractionnaire. 

Sous ce mystérieux nom de modulo se cache une opération connue de tous 
les écoliers : le reste de la division entière. 

Souvenez-vous : 

En 7 combien de fois trois, il y va 2 fois. Je pose 2. 2 fois 3 égale 6, ôté de 
7 il reste 1. 

On peut utiliser un langage plus évolué et dire que 7 est congrue à 1 
modulo 3. 

Enfin si vous introduisez dans le calculateur la séquence : 7 3 XEQ 
"Mon", le résultat sera 1. 


Ecolier, mathématicien, calculateur ont tous trois fait la même opération. 
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Pour mieux saisir l’utilité de cette fonction nous allons développer un lo- 
giciel de traitement des fractions. Notre point de départ a été le programme 
MPPCM, PGCD, et approximation fractionnaire d’un nombre décimal", pré- 
senté dans la bibliothèque mathématique, destinée aux calculatrices HP-67 et 
97 et très exactement localisé des pages 12 à 15. 

Ce programme calcule : 

— le Plus Grand Commun Diviseur, P&GCD ; 


— le Plus Petit Commun Multiple, PPCM ; 


la forme réduite d’une fraction ; 

— les valeurs s et t solutions de l'équation : à X s + b x t = pgcd(a, b); 

— la fraction entière approchant au mieux un nombre décimal donné. 
Pour effectuer toutes ces opérations le programme fourni par HEWLETT- 
PACKARD utilise 199 instructions et 7 registres de données. Sur HP-41 nous 
effectuerons les mêmes fonctions en 86 instructions sans déborder de la pile 
opérationnelle. 

Envisageons d’abord le calcul du PGCD. L’algorithme utilisé est celui d’Eu- 
CLIDE, célèbre géométricien grec qui, tout en postulant, poursuivit parallèle- 
ment des recherches en arithmétique. 

Le principe est le suivant : on remplace le dénominateur par le reste de 
la division entière (le modulo) et le numérateur par le dénominateur. Si le 
nouveau dénominateur est nul le calcul s’arrête et le numérateur est alors 
égal au PGCD. Sinon on réitère l’opération sur le nouveau rapport. Il est aisé 


d'écrire le sous-programme de 6 lignes. 


BikLEL ff Voici la vedette 
MOT 
LASTYK 


KEY 
Ke? 
GTC &G& 
-ENE. 





Le couple de valeurs initiales a et b est introduit en X et Y, dans un ordre 
quelconque. En fin d’exécution le registre X contient 0 et le registre Y le PGCD. 


On ne peut pas faire plus concis! 
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Le PGCD est habituellement utilisé pour obtenir la forme réduite d’une 
fraction (on dit aussi simplifier). 

Il est donc important et opportun de modifier légèrement notre séquence 
pour obtenir la fraction 4’/r' réduite en divisant les deux termes de la fraction 
par leur PGCD. Pour parvenir à ce résultat il nous faut d’abord sauvegarder 


les valeurs à et b dans les registres Z et T. On obtient finalement : 


GisLEBL “RF* Réduction de Fraction. 
HZ STO € Sauvegarde du dénominateur. 
GE KT . 
A4 STO T Sauvegarde du numérateur. 
GS5+LBL 2 

HOT Calcul du PGCD. 

LASTÉ 

REDTY 

eg? 

GTO 2 

+e Rappel du PGCD en X. 

ST- Z 

ST 

HDH 

«. END. 


Obtention de la fraction réduite 





Sauriez-vous retrouver l’unique instruction à ajouter à cette séquence pour 
calculer le Plus Petit Commun Multiple ? 

Rappelions que ce dernier est égal au rapport du produit des deux nombres 
par leur PGCD, ou encore au produit du numérateur de la fraction (a) par le 
dénominateur de la fraction réduite (b’). La valeur b’ est actuellement en X 
et le numérateur a est présent en Z, il a en effet été recopié par T lors de 
l'addition effectuée au pas 11. 


L’instruction à ajouter est donc simplement : 


15 ST*x Z 


Suivi de 16 END pour clore la procédure. 

Voyons sur un exemple le fonctionnement de l’ensemble : soit la fraction 
91/65, calculer sa forme réduite, le PPCM et le PGCD de ses deux termes : 

91 65 XEQ "RF" + 5 dénominateur fraction réduite. 
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— 7 _Numérateur fraction réduite 


_; 455 PPCM 


+" -13, PGCD 


L'heure est venue de nous préoccuper du calcul de s et t. Comme pour la 
résolution des équations du second degré, il faudra reconsidérer l’algorithme 
classique et proposer une autre méthode, peut-être moins immédiate pour le 
calculateur humain, mais mieux adaptée à la machine. 

L’équation de départ : a x s+b x t = PGCD(a,b) peut être réécrite en 
divisant les deux membres par le PGCD. 

On obtient a/ les termes de la fraction réduite, que nous savons maintenant 


calculer. Nous allons donner successivement à t les valeurs entières 0, 1, -1, 2, 


2 __ (1-b/xt) : a 5 
-2...et calculer s = =} jusqu’à ce que s prenne une valeur entière. 


GislEBL "ST" 

BZ XEGQ "REF" Calcul de la fraction réduite 
Az A 

Ed 1 Initialisation de T. 
ASeLEL A7 Début de la boucie. 

86 RDWN 

B7 CHS 

A6 K<=67 Décrémentation de 1 si négatif. 
OS DSE x 

18 STO x Inhibe le saut après DSE. 
11 STO TT 

12 K<SY 

15 # 

14 LASTYX 

15 RDH 

16 CHE 

17 IISG x 1-b'*t, 

16 STE x ‘ È 

ie ve Inhibe le saut après ISG 

2 ; : 

51 LASTY Obtention de s en X. 

22 FH 
22 FRE 
24 K#67? 
25 GTO 65 
26 K€ L 
ZF -END. 


Récupération de a'. 


Test : s est-il fractionnaire ? Si oui on itère. 
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En fin de calcul s est en X et t{ en Y. 


Exemple : toujours avec les valeurs 91 et 65 : 


91 65 XEQ "ST" + 2 valeur de S 


Nous obtenons bien : 


X<>Y = 3 valeur de T 


91 x (—2) + 65 x 3 = 13 : PGCD (91, 65) 


Dans la suite de nos travaux, inspirés de ceux d'HERCULE, nous vous 


avons annoncé le calcul de la fraction approchant au mieux, compte-tenu de 


la précision du calculateur, un nombre décimal donné. 


L’algorithme employé dans ce programme utilise une méthode de fraction 


continue. Ne nous demandez pas de vous l’expliquer en détail, nous ne sommes 


pas certains d’avoir nous-mêmes tout compris! 


Le programme, par contre, fonctionne fort bien : 


Bis+LBLl “"DF* 

32 8 

Gaz 1 

44 RCE 

65 FI* 

B6+LEL 
FRC 
1rK 
INT 
KéSY 
STx Y 
FTDH 
KHEEY 
SET+ % 
KE L 
FRHH 
ET 
KEY 
END 
KE L 
REEY 





CLARA 
ARCL L 
sir 
ARCL # 
AVYIEH 
ST< 
ST4 L 
kéz L 
M=TT 
GTO 46 
EC L 


KEY 

KE T 

GTO0 4 
36+LEL 68 
37 LASTX 
36 STx 
39 .EHD. 


Les instructions 21 à 25 utilisent les possibilités alphanumériques du cal- 


culateur pour afficher clairement à chaque approximation la fraction obtenue. 


Si les valeurs affichées défilent trop vite à vos yeux vous pouvez armer ma- 


nuellement le drapeau 21, le calculateur s'arrêtera alors à chaque itération. 


99 


PROGRAMMER HP-41 


Nous donnerons comme exemple les approximations fractionnaires du nombre x 


SF 21 x XEQ "DF" -+ 22/7 


+ _333/106 
R/S] + 355/113 


R/S] + 104348/33215 
+ 33215 


La dernière valeur affichée est le dénominateur de la dernière fraction ob- 
tenue par HP-41 le numérateur est en Y. Cette approximation est la meilleure 


que peut fournir le calculateur du fait de sa connaissance limitée des décimales 
de 7. 

Il à fallu près de 15 siècles pour passer de la première approximation qui 
est celle d'ARCHIMÈDE à la dernière calculée par votre HP-41 en 6 secondes ! 

Nous avons rempli notre contrat mais nous ne pouvons résister à la ten- 
tation d’en rajouter un peu. Voici sans commentaire (en est-il besoin ?) un 
groupe de procédures très brèves qui vous permettront d’effectuer additions, 
soustractions, multiplications et divisions sur des fractions. La fraction opé- 
rande est à l’entrée en T et Z, la fraction opérateur en Y et X. Le résultat final 


est également en Y et X. 


GBleLEL “FF 
GZ KEY 
DGZ+LEL “Fæx" 
G4 STx Zz 

FIN 

STx Z 

RDH 

GTO “RF" 
69eLBL “F-" 
16 CHS 
1ieLEL “F+" 
12 STx 
13 K<> 

STx 

# 

RCL 

+ 

KHEEY 

GTO “RF" 

« END. 
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Problème : quelle résistance mettre en parallèle avec une autre de 100 ohms 
pour obtenir une valeur finale de 80 ohms ? 


On sait que 1/r'+1/r" = 1/rR+ et donc 
1/R° — 1/Rt = 1/R 


Il vous suffit d'exécuter : 


1 [ENTERT] 80 
1 100 (deuxième fraction) 


XEQ "F-" + 400 valeur recherchée. 


Vous pouvez vous assurer au passage que le numérateur est bien égal à 1, 
la fraction étant réduite à la suite de l’appel de RF. 

La fonction modulo semble donc fort pratique, cependant, dans certains 
cas elle s’avère insuffisante. Il est parfois souhaitable d’obtenir non seulement 
le reste de la division mais aussi son quotient. Il est dit dans le manuel (pp. 
11) : «Si vous avez besoin d’une fonction qui n’est pas micro-programmée, 
vous pouvez écrire un programme répondant à ce besoin. » 

Écrivons donc la procédure Div (DIVISION ENTIÈRE) en lui imposant les 
spécifications suivantes : 

— entrée : dividende en Y, diviseur en X; 

— sortie : quotient en X, reste en Y, le diviseur est sauvegardé en L; 

— conservation des registres Z et T. 

Pourrons-nous respecter ces contraintes drastiques ? Vous le saurez en deux 


épisodes : 
Premier épisode : 


Si+LBL'DIV" 
Be ST Ÿ 
KEY 
INT 
ST- L 
KCDY 


STx L 
HE L 
KEEY 

-EHB. 
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Voilà une procédure brève et élégante, vérifions qu’elle donne de bons 


résultats : 


13 3 XEQ "DIV" + 4 le quotient 
+ 1le reste 
+ 3 le reste 


Êtes-vous satisfait ? N'y aurait-il pas un léger défaut ? Cherchez-le, nous 


vous donnons rendez-vous dans quelques instants pour en discuter. 
Deuxième épisode : 


Hé oui! vous avez bien vu, quand on reprend l’exemple qui précède en 
affichant 9 décimales on découvre l’horrible vérité : le reste n’est pas égal à 
1 mais à 0.999999999. Une erreur d’un milliardième peut avoir des consé- 
quences dramatiques surtout si HP-41 compte sur ses décimales pour effectuer 
des opérations spécifiques (voir au chapitre suivant le problème des codes de 
contrôle). 

Il nous faut donc rédiger une nouvelle version, moins brève, moins élégante, 
mais plus exacte. Pour éviter les décimales erronées nous sommes contraints 


d'effectuer un arrondi en remplaçant le pas 08 du programme précédent par : 





Voilà un programme bien rafiscotché : nous renonçons au passage à conser- 
ver le diviseur dans le registre L. En contrepartie cette procédure calcule un 
résultat toujours exact. C’est néanmoins avec tristesse que nous renonçons 
aux spécifications initiales, si vous trouvez une solution satisfaisante à ce pro- 
blème, n'hésitez pas à nous en faire part. 

Cette histoire a une morale : quand vous effectuez des calculs arithmétiques 
placez-vous toujours en FIX 9 pour vérifier si par hasard le calculateur ne vous 


présenterait pas, sous un emballage irréprochable, une marchandise frelatée. 
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QUELLES COMBINAISONS! 


Une autre fonction originale de HP-41 est la fonction factorielle (FACT). 

Factorielle de n, (notée aussi n!) est le résultat du produit des n premiers 
entiers. 

Nous connaissons tous l’histoire du sage de l’Inde qui demanda comme 
salaire un grain de blé sur la première case d’un échiquier, deux grains de 
blé sur la seconde, quatre sur la suivante et aïnsi de suite en doublant le 
nombre de grains sur chaque case jusqu’à la soixante quatrième. L'opération 
n'était pas mauvaise mais il aurait pu s’enrichir encore plus vite en dédaignant 
l’exponentielle pour lui préférer la factorielle. 

En effet, si 254 est égal à 1,8Æ19, 64! vaut 1,8E89 (c’est probablement 
ce genre de résultat qui justifie le point d’exclamation comme symbole de 
l’opération factorielle). 

Cette opération est à la base de l’analyse combinatoire dont le but est de 
dénombrer les états que peuvent prendre un nombre fini d'objets. n! est égal 
au nombre de permutations distinctes de n objets. 

Pour connaître le nombre de configurations de la pile opérationnelle à 
quatre registres il nous à suffi de faire : 

4 XEQ "FACT" — 24 

Si on prend en compte un cinquième registre (L) le nombre de permu- 
tations est alors de 120. Nous vous laissons le soin de tracer le logigraphe 
correspondant. 

Une autre valeur intéressante est le nombre de combinaisons de k objets 
pris parmi n. On peut ainsi calculer le nombre de mains qu’il est possible 
d'obtenir au jeu de bridge sachant que chaque main est constituée de 13 
cartes tirées d’un paquet de 52. 


La formule qui permet d’effectuer ce calcul est la suivante : 


nm n! 
L | Foi 
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C’est assez barbare mais cela se programme fort bien : 


GielRri "CB" 

GE KEY 

G3 FACT 

H4 KEY 
ET- L 
LASTK 
FACT 
REY 
FACT 
#Æ 


- EN. 





Nous pouvons maintenant résoudre le problème posé plus haut : 


52 13 XEQ "CB" -— 6,35E11 


Si vous êtes joueur de bridge traitez avec respect les mains qui vous 
échoient, elles représentent la réalisation d’un événement qui n’avait qu’une 


chance sur 635 milliards de se produire, et donc potentiellement. unique. 


Pour les amateurs de curiosités mathématiques voici deux charmants pro- 


blèmes dont la résolution nécessitera l’utilisation de c8 : 


— Le piquet est un jeu de cartes où la seule annonce autorisée est "Dix de 
blanc". Cela signifie que parmi les douze cartes qui lui ont été distribuées 
le joueur ne possède aucune figure. Quelle est la probabilité de faire cette 
annonce sachant que le piquet se joue avec 32 cartes ? 

— Lorsqu'une équation a de nombreuses solutions évidentes il peut être 
plus passionnant de déterminer leur nombre que leurs valeurs. Combien 
l'équation : x + y + 2+t = 13 a-t-elle de solutions entières, strictement 
positives ? 

Puisque nous avons abordé le terrain des probabilités terminons avec une 


ultime application de la procédure cB. 


La loi binomale permet de calculer la probabilité qu’un événement favo- 


60 


FACE À LA PILE 


rable se réalise X fois sur n épreuves indépendantes en fonction de la proba- 
bilité p d'apparition de l’évènement pour chaque épreuve. 
Dans une famille de six enfants combien a-t-on de chances de n’avoir que 


des filles ? La réponse est donnée par la formule : 


n n—k 
— x (1 — 
p ÿ (1—p) 


Dans le programme LBN (LOI BINOMIALE) nous calculerons d’abord les 


termes exponentiels avant l’appel de cB. 


Bi+iBL “LENH”T 
Ez 1 

BE KEY 
G<4+ — 

65 LAEST*X 
Gé KE Z 
87 ST- T 
GS <> TT 
83 vTrs 
18 LASTÉ 
A1 KE € 
ie ET 

13 ST+ T 
14 YTXK 
15 LASTE 
16 RDH 
17 *# 

18 STOT 
19 FREN 
24 KEY 
ei «EG CB" 
BE % 

23 .-END. 





Spécifications : 


— Entrée n en Z,ken Y,penX; 


sortie p en X; 
— Les registres T et L sont perdus. 


Nous pouvons maintenant résoudre nos problèmes familiaux : 


6 (nombre d'épreuves, ici le nombre d’enfants, sic) 
6 (nombre de fois où l'évènement se réalise) 

0,5 (Probabilité d’avoir une fille) 

XEQ "LBN" — 0,0156 soit une chance sur 64. 
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En pratique, le calcul qui précède est probablement faux : la probabilité 
d’avoir une fille est un peu supérieure à 1/2 (environ 0,52) et surtout, il n’est 


sûr du tout que les "tirages" successifs soient indépendants ! 


CONCLUSION : 


Nous espérons que la description des nombreuses procédures qui précèdent 
vous ont permis de découvrir les possibilités très étendues de la pile opération- 
nelle. Nous aurions pu multiplier les exemples à l'infini, mais l’épaisseur d’un 
livre est nécessairement limitée. Nul doute qu’une de ces procédures vous sera 
utile un jour, et si, malgré tout, vous n’y trouvez pas votre bonheur écrivez 
donc vos propres fonctions pour mieux accroître la puissance et le confort 


d'utilisation de votre HP-41 . 


62 


CHAPITRE IV 


HASARD NÉCESSAIRE 
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Nous nous sommes longtemps torturé l'esprit pour savoir dans quel cha- 
pitre placer les deux procédures indispensables qui suivent. La solution a 
soudain jailli de nos têtes surmenées : il suffisait de créer un chapitre supplé- 


mentaire, le voici : 


Nous traiterons ici du hasard. Le hasard est partout il gouverne nos 
vies. Aussi bien dans nos jeux (Loto, Tiercé) que dans des activités plus sé- 


rieuses comme la recherche scientifique, voire la politique. 


Pour savoir maîtriser le hasard il faut pouvoir le simuler. Comment y 


parvenir, en utilisant un outil aussi fortement déterministe qu’un ordinateur ? 


Le hasard selon certains n’est que la mesure de notre ignorance, il nous 
suffira de demander au calculateur d'effectuer une suite d'opérations suffisam- 


ment complexe pour que le résultat nous paraisse "imprévisible". 


Cela ne suffit pas, si la valeur initialement fournie au calculateur est tou- 
jours la même, le calcul, aussi compliqué soit-il, fournira toujours les mêmes 
résultats. Il faut donc initialiser le processus aléatoire. Comme le calculateur 
est incapable de le faire c’est à l’homme que reviendra la tâche d'accomplir le 


premier pas sur le chemin du hasard. 


Des deux procédures annoncées, la première HSD (HASARD) nous permet- 
tra d'introduire une "semence" dans un registre du calculateur, et la seconde 
GAG (GÉNÉRATEUR ALÉATOIRE GÉNÉRAL) utilisera et modifiera cette valeur au 


cours des tirages successifs. 


HsD teste si le registre ROO contient un nombre à partie fractionnaire non 
nul. Si le test est vérifié, HsD se branche sur GAG histoire de brouiller un peu 
les pistes. Dans le cas contraire (nombre entier ou chaîne de caractères dans 
ROO) le calculateur s’interrompt pour vous demander une semence. La validité 


de cette semence est vérifiée par un retour en début de programme. 
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Gi+LBL"HSD" 

62 DEG 

G3 RCL 98 
Sr 25 
FRC 
FS9C 25 
“=? 
FS? 34 
GTO &a 
FDH 

11 "ALER 


GLKHEL 7" 
TONE 9 
PROMPT 
STO 68 
RDH 
GTGÜ 


17eLEL 68 
198 CLK 
19eLBL “GAG* 





La procédure GAG demande un paramètre d’entrée un peu particulier : c’est 
un nombre qui en regroupe deux. L’un occupe la partie entière, l’autre les trois 
premiers chiffres de la partie fractionnaire, on peut représenter la chose sous 
le format nnn,mmm (ce que nous appellerons un code de contrôle). 

À partir de ce code, GAG renvoie un nombre entier aléatoire, compris entre 
nnn et mmm bornes incluses, en, X. Un nombre aléatoire compris, lui, entre 
0 et 1 bornes exclues, est également retourné en T. Les registres Y et Z sont 
respectés, L est perdu. 

Mode d’emploi de l’ensemble : dès les premiers pas d’un programme 
utilisant des nombres aléatoires, on appelle HsD. Si cette procédure estime que 
le contenu de R00 peut être utilisé comme semence il n’y à pas d’interruption 
du programme. 

Quand on désire obtenir un nombre aléatoire entre nnn et mmm, on crée 
le code nnn, mmm suivi de XEQ "GAG". Précisons que l’ordre des valeurs 
nnn et mmm est indifférent. Ainsi les codes ,003 et 3 renverrons tous deux 
un nombre parmi 0, 1, 2 ou 3. La deuxième forme est donc pour des raisons 
d’encombrement nettement préférable. 

Mais il est temps de commencer la lecture du chapitre suivant dans le- 
quel vous trouverez précisément une procédure MEL lui utilise GAG ; est-ce un 
hasard ?.… 
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Parmi les variables traitées en informatique certaines sont solitaires : le 
rayon d’un cercle, le rapport d’un tiercé ou l’omniprésent âge du capitaine. 

Mais, supposons que nous nous intéressions subitement à plusieurs capi- 
taines, à une statistique sur les rapports du tiercé pendant un an, ou à une 
famille de cercles. Ce n’est plus une seule valeur qui retient notre attention 
mais un ensemble. Nous chercherons à manipuler cet ensemble comme un tout 
ou à découvrir certaines propriétés qui lient ces valeurs entre elles. 


Cette suite de nombres ou de chaînes de caractères, pour des raisons de 
commodité, sera située dans un groupe de registres consécutifs. 

Pour le mathématicien un tel ensemble prend le nom de vecteur. L’in- 
formaticien parlera, lui, plus volontiers de tableau. 

Au cours de ce chapitre nous préciserons comment traiter ces groupes de 
valeurs, et définir une série de procédures générales de traitement. 


S’'EFFACER 


Pour illustrer ces notions, débutons par un exemple simple : la remise à 
zéro d’un ensemble de mémoires. Le HP-41 dispose de quatre fonctions d’effa- 
cement : 


— CLX pour effacer le registre X ; 

— CLST pour effacer la pile opérationnelle ; 

— CLS pour effacer les registres statistiques ; 

— CLRG pour remettre à zéro la totalité des mémoires. 


Mais aucune de ces fonctions ne permet d'effacer électivement un groupe de 
registres défini par l'utilisateur. 


Plaçons-nous dans un cas particulier : nous désirons effacer les registres 


de R11 à R15. Il est possible d'écrire le programme : 


GieLBLl “TCL1Ii" 


a 
STO 11 
STO 17 


STO 13 
STOG 14 
STQ 15 
- ENZ. 
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Spécification de TcLi : 

— données initiales : aucunes ; 

— données finales : aucunes ; 

— modifications : perte du registre T. 

Un tel programme remplit bien la tâche que nous nous sommes assignée. Il ne 
saurait cependant être considéré comme une procédure générale. En effet si les 
cinq registres à effacer ne sont plus situés entre R11 et R15, i l sera nécessaire 
de réécrire un nouveau programme. 

Envisageons maintenant le cas, encore plus particulier, de l'effacement 
d’un unique registre : si l'emplacement de ce registre est connu au moment 
de l'écriture du programme, la solution est immédiate. Mais si l’adresse du 
registre doit être calculée, s’il s’agit d’une variable, il n’est pas possible de 
l'indiquer directement dans le programme. 

On peut cependant déposer cette adresse calculée dans un registre dont 
l’adresse sera directement précisée à l'ordinateur. Ce dernier devra aller cher- 
cher à cette adresse l’adresse finale. Pour cela, il est nécessaire d’intercaler 
l’ordre iND (indirect) pour mettre le calculateur au courant de ce tour de 
passe-passe. Remarque : cette technique est d’ailleurs la seule qui autorise 
l'accès aux registres de rang supérieur à 99. 


Ainsi, après avoir placé dans X le numéro d’un registre, la séquence 


01 9 


G2 STO IND 





effacera le contenu de ce registre. 


Nous avons progressé vers la solution de notre problème puisque nous 
sommes maintenant capable d'atteindre, par une instruction, n'importe quel 
point de l’espace mémoire. 

Pour accéder successivement à plusieurs points nous pourrions répéter 
plusieurs fois la séquence précédente en faisant varier le contenu de Y. Il est 


de loin préférable de faire appel à un autre outil puissant : les boucles. 
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Sur HP-41 les boucles ont généralement la structure suivante : 






TRAITEMENT 





Les tenants de la programmation structurée diront, fort doctement, que cette 
boucle est du type FAIRE JUSQU’À... Il existe un autre type de boucle : TANT 
QUE... FAIRE, que nous envisagerons par la suite. 

Revenons à notre procédure de nettoyage. Elle a maintenant besoin, pour 
s’exécuter, de deux paramètres : l’adresse du premier registre à effacer (la 
base du bloc) et celle du dernier (le sommet). 


Nous pouvons écrire la deuxième version de TCL 


G1#LBL"TCL2" 
82 & 

93 STO IND Y 
g4 SIGN 

65 + 

g6 x<=TY? 

QG? GTO"TCLEZ" 
GS .END. 


Le numéro du registre 
initial est en X, et 
celui du dernier 
registre à effacer en Y. 





Spécifications de TcL2 
— données initiales : adresse de la base du tableau en X, adresse du sommet 


en Ÿ; 


— données finales : aucune ; 
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— modifications : perte du registre T, la valeur finale en X est supérieure 


d’une unité à celle de Y inchangée. 


Le pas 03 utilise l’adressage indirect pour effacer le registre dont l’adresse est 


présente dans Y. 


Les pas 05 et 06 augmentent d’une unité cette adresse (on parle également 
de pointeur pour désigner cette valeur que l’on incrémente), la fonction SIGN 
est ici équivalente à deux instructions : CLX, 1, elle est plus rapide et utilise 


un octet de moins. 


Enfin, le pas 06 vérifie que l’adresse finale n’est pas atteinte. On retrouve 
bien la structure de boucle (FAIRE. ..JUSQU’À) telle que nous venons de la 


schématiser. 


Cette procédure est parfaitement satisfaisante : quelle que soit l’adresse 
initiale et le nombre de registres à effacer elle pourra fonctionner. En fait, elle 
n'utilise pas à fond toutes les caractéristiques du HP-41. L'opération d’incré- 
mentation suivie d’un test est à ce point courante qu’une instruction spéciale 


a été prévue INCRÉMENTATION et SAUT SI PLUS GRAND : ISG. 


Nous avons, dans TCL2, utilisé deux registres pour ranger initialement les 


deux paramètres de contrôle : les adresses de début et de fin. 
L’instruction ISG regroupe ces deux données en un seul registre : 


— l'adresse de la base constitue la partie entière ; 
— l'adresse du sommet, dont la valeur ne peut excéder 3 chiffres, est située 


dans la zone fractionnaire. 


L'ensemble forme un code : ddddd, ff f qui délimite ainsi une zone de la 


mémoire des données. 


Cette notation est générale, elle est également utilisée par les périphé- 
riques, mémoires de masse et imprimante, aussi l’adopterons-nous. Désor- 
mais, nous désignerons un tableau en mémoire par ce paramètre : le code 


de contrôle. 


Il ne nous reste plus qu’à utiliser ces nouvelles normes pour écrire une 


troisième (et dernière) version de TCL : 
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GiBLEL"TCL”" 
62 SIGH 

93 CLK 
GA4HLEL 91 

85 STO IND L 
66 ISG EL 


67 GTO 61 
48 .END. 


Cette fois c'est le 
paramêtre ddd,fff qui 
est initialement en X. 





Spécification TC : 

— données initiales : code de contrôle en X ; 

— données finales : aucunes; 

— modifications : le registre X est perdu, le registre X prend finalement la 

valeur 0. 

Ce dernier programme comporte également l’instruction SIGN, mais son rôle 
est maintenant de placer notre code de boucle dans le registre L. Le but de la 
manœuvre étant de perturber la pile opérationnelle le moins possible. Effec- 
tivement, une fois TCL exécutée, les registres Y, Z et T sont restés inchangés. 

On aurait pu, pour parvenir au même résultat, utiliser au pas 02 l’instruc- 
tion STO L plus naturelle, mais rappelons nous notre philosophie générale : une 
procédure doit être optimisée au maximum, elle doit être brève et former un 
bloc sur lequel il n’y aura plus à revenir. C’est une nouvelle fonction du lan- 
gage de votre HP-41 , au même titre que LOG ou PROMPT, vous ne savez pas (et 
nous non plus) comment ces fonctions ont été programmées, vous avez éga- 
lement le droit d'oublier quelle suite d’instructions compose votre procédure. 
Par contre, il est impératif d’en noter soigneusement les conditions d’utilisa- 
tion : paramètres d’entrée, résultats, modification des registres de la pile aussi 
bien que de la mémoire donnée, altération de l’état des indicateurs binaires... 

Nous avons maintenant entre nos mains tous les outils nécessaires et suffi- 
sants à la création d’un ensemble homogène de procédures de manipulations 


des tableaux. Nous vous laissons le soin d’ouvrir le feu! 
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EN RAJOUTER 


Pour bien vérifier que vous avez saisi, écrivez une procédure qui fait la 
somme de tous les éléments d’un tableau. Pour pimenter la chose cette pro- 
cédure doit conserver les valeurs présentes en Y et en Z. Le paramètre de 
boucle ddd, f f f est à l'entrée dans X, en fin d'exécution la somme obtenue est 


renvoyée dans ce même registre. Travaillez bien avant de regarder la suite! 


Gi#HLBEL"TSM" 

82 SIGH 

B3 CLX 

G4ÆLBL 42 
RCL IND L 


ST+Y 
RTIH 
I1SG L 
GTA 82 
- END. 





Le programme TSM ressemble à TCL comme un frère, seule la partie traite- 
ment est modifiée (c’est un minimum) : le pas 05 STO IND L est remplacé par 
3 instructions. On aurait pu envisager d'écrire simplement + à la place de ST 


+ Y, RDN. En fait, cela conduit droit à la catastrophe! 


Souvenons nous que notre précieux paramètre de boucle est dans L, toute 
opération effectuée sur le registre X va de la façon la plus implacable écraser le 
contenu de L. La suite, s’il y en a une, est inracontable. Heureusement l’arith- 
métique directe dans les registres, étendue à la pile opérationnelle, permet de 


faire l’opération sans modifier le contenu de L. 


Comme application de cette procédure nous vous proposons la brève sé- 
quence d'instructions qui suit. Elle nous permettra d’introduire en mémoire, 


sous forme de tableau, la suite des n premiers nombres entiers05 STO IND L. 


73 


PROGRAMMER HP-41 


BiÉLEBL" SUITE 


La 

SIGN 
BTHLEL 68 

LAST x 

INT 

STO IND x 

ISG L 

GTO 984 

-ENTD. 





Si vous exécutez cette procédure avec le nombre 10 initialement en X vous 
obtiendrez in fine : 1 dans le registre RO1, 2 dans RO2, etc... jusqu’à 10. Le 
code de contrôle de ce bloc de valeur sera 1,010. 

Introduisez maintenant ce code de contrôle en X puis exécutez ISN : vous 
obtenez 55. D’autres essais sur différents nombres de valeurs vous convaincront 
que la somme des n premiers nombres entiers est donnée par la formule : 


S (n) — 2X(n+1) 












a Sonmne 
9n attend le 
beep final 


UN MAXIMUM! 


La partie traitement qui occupe le centre de nos boucles peut être aussi 
diverse qu’il est possible de l’imaginer. 

Nous venons d'effectuer des stockages (TCL et SUITE), des opérations arith- 
métiques (TSM), voici maintenant un exemple qui utilise un test. 


TMX recherche dans un tableau la plus grande des valeurs et renvoie son 
adresse. En cours de fonctionnement la pile doit contenir : 
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le code de contrôle de la boucle ; 

— la valeur maximum actuelle ; 

— l’adresse de cette valeur ; 

l'élément du tableau que l’on est en train de comparer. 


Tout cela fait beaucoup, mais pas trop. Il nous reste même un registre pour 
conserver quelque trace de l’ancien contenu de la pile. Pour pouvoir nous en 
sortir il nous faudra cependant tirer le maximum des propriétés de la pile, 


cela n’est plus pour vous effrayer (puisque vous avez lu le chapitre précédent). 


Voici le programme : 


GiÆLBL"TNE" 
G2 REY 
63 SIGH 
&4 RDNH 
A5 RCL X 
Gé RCL INT 
ar ENTERT 
GEHLEL 627 
CL 
RCL IND 
HER dr 
GTO an 
HER 
LASTYX 
+ 
16HLEL 86 
17 ISG € 
185 A3 
19 
26 
e1 


Le code de contrôle 
ddd,fff est bien entendu 
en X. 





Ce programme est déjà un peu plus long et plus complexe que les précé- 


dents. Découpons-le en tranches. 
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Les pas 02 à 04 (X, RCL Y, SIGN, RDN) ne servent qu’à sauvegarder le 
contenu de Ÿ dans L, nous espérons l’y retrouver à la fin des opérations. Puis 
des pas 05 à 07 (RCL X, RCL IND X, [ENTER1]) la pile est manipulée pour avoir 
la configuration suivante : 


T — pointeur du maximum courant ; 

Z — code de boucle (pointe sur la valeur à comparer) ; 
Y — valeur maximum courante ; 

X — valeur à comparer. 


Au début de la procédure la base du tableau est utilisée comme valeur maxi- 


mum. 


La boucle de traitement commence au pas 08. Au pas 09 (cix) le registre 


X est effacé, c’est une opération de nettoyage, et immédiatement une nouvelle 


valeur à comparer au maximum est rappelée (RCL IND z). 


Un test est alors effectué : 


si ce nouveau nombre est inférieur au maximum actuellement en Ÿ, on achève 
ce tour de boucle sans rien modifier (branchement à l’étiquette 02) ; 
dans le cas contraire, nous avons deux choses à faire : 


— remplacer le maximum précédent, maintenant déchu, par son challenger, 
un simple X &Y suffit, 

— puis remplacer le pointeur dans T par l’adresse de notre nouveau maximum 
qui se trouve actuellement en Y. 


Ceci pourrait être obtenu par des mouvements de la pile du style : RT, CLX, 
RCL T, RDN. Il est cependant possible de faire plus court. Les pas 14 et 15 
(LASTx, +) suffisent car ils utilisent les propriétés des registres T et L. Le 
rappel de LASTx éjecte de la pile l’ancien pointeur, l’opération + replace X 
dans L (souvenons-nous que nous tenons à préserver cette valeur) et fait des- 
cendre automatiquement la pile, ce qui a pour effet de dédoubler non moins 
automatiquement la nouvelle adresse dans X. 


.. Et on recommence jusqu’à ce que toutes les valeurs de notre tableau aient 


été testées. Les pas 14 et 15 nous évoquent irrésistiblement le geste élégant du 


prestidigitateur qui, d’un mouvement sec et imperceptible, vous change une 


dame de pique en as de cœur. Finalement les instructions 18 à 21 (CLX, LASTx, 


Rt) remettent un peu d’ordre dans la pile, la valeur dans L retrouve sa place 
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en Ÿ ; l’adresse du maximum est amenée en X et le maximum du tableau est 
placé en Z. Ces pas pourraient paraître superflus, il n’en est rien, leur rôle 
capital est de veiller sur votre confort, restaurer au maximum l’état antérieur 
de la pile et placer le résultat attendu là où on a coutume de retrouver tous 


les résultats : en X! Cela, croyez-nous, vous évitera bien des migraines. 


S’'INTRODUIRE 


Le lecteur attentif peut se demander d’où proviennent tous ces nombres 
que nous ne cessons de manipuler dans les entrailles de la mémoire ? 

La réponse est fort simple : nous les y avons placés, et pour cela bien 
sûr, nous avons utilisé une procédure ! Pour introduire un tableau en mémoire 
on pourrait utiliser comme précédemment un contrôleur de boucle de type 
ddd, f ff. Mais cela nous obligerait à connaître initialement la dimension, 
c’est-à-dire le nombre d’éléments, de notre vecteur. Ce paramètre peut très 
bien ne pas être immédiatement disponible et, quand il l’est, il peut y avoir 
une erreur dans le compte des éléments. Il n’y à rien de plus frustrant que 
de voir le calculateur attendre une n + 1**”* donnée dont on ne dispose pas 
où, à l’inverse, nous abandonner lâchement bien qu’il nous reste encore des 
nombres à introduire. 

La solution que nous adopterons sera de convenir d’un signe indiquant la 
fin de l'introduction. Dans ces conditions, le seul paramètre dont le calculateur 
aura besoin est l’adresse de la base du tableau. 

Quel peut être ce signe ? Un chiffre clef comme zéro ? 

Un nombre caractéristique comme 7 ? Si vous adoptez cette solution ayez 
la certitude, en vertu de la loi de la tartine de beurre (dite de l’emm... maxi- 
mum! ), que vous aurez un jour à introduire ces valeurs et qu’alors le pro- 
gramme s’achèvera sans se soucier de votre désespoir (notons que la chose 
survient en général lors d’une démonstration visant à prouver combien est 
fiable le programme). 

Le deuxième écueil est de choisir une clef de terminaison trop compliquée, 


de l’oublier, et d’être forcé de vous replonger dans la liste du programme pour 
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retrouver (ah oui! C’est vrai.) les dix derniers chiffres de votre numéro de 
sécurité sociale ! 

Une nouvelle fois restons logiques et simples : puisqu'il n’y à plus rien à 
rentrer, ne rentrons rien. Votre calculateur est suffisamment sophistiqué pour 
faire la différence entre ce rien et tout le reste. Il utilise pour cela un drapeau. 

De même que le calculateur gère automatiquement de nombreux mouve- 
ments de la pile opérationnelle, il manipule aussi pour son propre compte 
certains indicateurs, parmi lesquels celui qui nous occupe : le drapeau 22. Ce 
dernier est toujours désarmé à la mise sous tension du calculateur. Dès qu’une 
entrée numérique est effectuée il s’arme sans que l'utilisateur ait à intervenir. 
Il suffit alors de tester l’état de l’indicateur pour que le programme puisse 
faire la distinction entre deux situations : une valeur vient d’être introduite 
ou non. 

Après cette digression sur les indicateurs binaires, revenons à notre procé- 
dure d’entrée : Elle ne compte pas moins de 35 instructions, décidément nos 
programmes prennent de l’embonpoint. 

Sa logique n’est pas cependant plus complexe que celles des procédures 


précédentes en voici la liste : 


: GBI#LEL"TEH" 

62 KEGU“FMH?" 

83 STO T 

G4 RDH 

65 FI*x 4 23 GTO A4 
g6 CF 2e 2A4#LEL 9 
67 INT 293 FIX IND = 
GS SIGH 26 DGSE L 
ga CLX 27 LAST+ 
1GHLEL 94 28 - 

11 CLA 29 CHS 

12 ARCL x 36 LASTE 
1e "+?" Si 1 E3 
14 PROMPT 32 + 

15 FC?PC 22 33 + 

16 GTO 66 34 ISG x 
17 STO IND L 35 .END. 
18 CLX 





Sur le plan de l’architecture ce programme comporte une boucle du type 
TANT QUE ... FAIRE. Le test de sortie au pas 15 précède en effet l’incrémen- 


tation de la boucle. Il est donc parfaitement possible de n’introduire aucune 
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valeur. Mais, d’une part, ce n’est pas le but recherché, et d’autre part le code 
de contrôle renvoyé est bien curieux, l’adresse du sommet est inférieur à celle 


de la base! 





Et voici le mode d’utilisation : Avant l’appel de la procédure l’adresse de 
la base du tableau doit se trouver en X. 

À chaque tour de boucle le calculateur s’arrête en affichant le rang de 
la donnée à introduire. S'il y a encore des entrées à effectuer, introduisez la 
valeur et frappez [RS]. sinon il suffit de frapper directement [F7] La procédure 
s’achève avec en X le code de contrôle du tableau. Le registre Y est conservé. 

En sus des instructions de commande et test des drapeaux, ce programme 
comporte des instructions de manipulation de chaînes de caractères. Le lecteur 
peu familiarisé avec ces dernières pourra se reporter au chapitre suivant. 

Il est clair que la procédure que nous venons de développer pourrait être 
plus brève, mais ce serait au détriment de sa souplesse d'utilisation. C’est sur 
ce critère qu’elle a été optimisée : la conservation du format d’affichage en 
utilisant FM? mérite bien la perte de quelques octets. 

L’optimisation du nombre de pas, primordiale aux temps héroïques des 
calculatrices de faible capacité, reste une bonne habitude. Elle doit cependant 
céder la place au confort. Si vous pouvez réduire le nombre de pas ou la taille 
d’une instruction sans modifier le mode d'utilisation ou augmenter le nombre 
de registres nécessaires, n’hésitez pas à le faire. Dans le cas contraire, ne prenez 
cette peine qu’en cas de force majeure : lorsque s’affichent à l’écran les fati- 
diques "PACKING TRY AGAIN" ce qui, compte-tenu de la capacité maximum de 
2,2 Ko du HP-41 C/V (soit une moyenne de 1100 instructions programmables) 


devient rarissime. 
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Nous allons maintenant travailler nos tableaux au corps. Jusqu’à présent 
nous n’avons fait que les explorer, ou les créer. Nous allons maintenant les 
transformer. 

Une opération très souvent effectuée sur un tableau est le tri. Une des plus 
nobles activités de l'humanité est d’ordonner, de diminuer l’entropie qui l’envi- 
ronne. Classer est à l’origine de toute science. En marge de ces considérations 
philosophiques il faut noter que trier des valeurs peut s’avérer extrêmement 
utile. 

Les informaticiens depuis quelques 21 millions de minutes que cette noble 
corporation s’active, ont utilisé une part non négligeable de ce temps à mettre 
au point des algorithmes de tri : par insertion, par bulles ou par sélection, mé- 
thodes de SHELL et de SHELL-METZNER. Nous avons le choix des armes, aussi 


nous intéresserons nous surtout aux contraintes à imposer à notre procédure. 


Elle doit, avant tout, respecter les standards que nous nous sommes efforcés 

d'établir : le passage en entrée du code de contrôle ddd, f ff doit suffire pour 
désigner la zone de la mémoire sur laquelle va porter le tri. Comme corolaire 
nous nous interdirons d'utiliser un seul registre de donnée (en dehors bien 
entendu du bloc à trier), le mot d’ordre est encore et toujours : “Tout dans la 
pile”! 
Nous vous proposons d'utiliser l’algorithme de sélection. C’est un compro- 
mis satisfaisant entre l'efficacité et la complexité. Il consiste à sélectionner le 
plus grand élément du vecteur et à échanger cet élément avec celui situé à 
la base du tableau. On considère alors le sous-tableau ayant un élément de 
moins que le précédent (l'élément déjà classé) et on répète l’opération. Les 
itérations s’achèvent quand le sous-tableau ne contient plus qu’un élément, 
obligatoirement le minimum. 

Il ne vous reste plus qu’à programmer tout cela, essayez, c'est encore plus 
simple quand on sait que c’est possible. 

Lorsque vous y serez parvenu, vous n’aurez plus qu’à sauter le paragraphe 


qui suit. À moins que la curiosité ne vous pousse à comparer votre œuvre à 
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celle que nous vous proposons (un détail pour stimuler cette curiosité notre 


procédure n'utilise que onze instructions ! ) 


RIMERL" TRI" 
ASÉLEL 45 





Si nous avons écrit la procédure TMx c’est pour nous en servir! Nous 
commençons à récolter les fruits de notre dur labeur. Connaissant l’algorithme, 
l'écriture de ce programme n’a pris que cinq minutes, ceci est possible car TMX 
est un sous-programme "propre" et qu’il préserve le contenu de Y. 

Sur cet exemple on commence à apprécier la puissance du calculateur et 
de son langage : un investissement initial limité pour créer des procédures bien 
léchées est toujours rentable. Nous avons souvent entendu des programmeurs 
vanter les perfectionnements de leur langage... pour regretter aussitôt de ne 
pouvoir disposer de telle ou telle fonction et d’être contraint de réécrire dans 
chaque programme des sous-programmes parfois très complexes. 

Avec HP-41 vous n'aurez jamais de tels regrets. Grâce à son architec- 
ture unique tous vos programmes pourront utiliser les procédures déjà écrites 


comme n’importe quelle fonction du langage. 


À VOS RANGS... 


Revenons à nos procédures. TRI classe les valeurs, mais leurs positions d’ori- 
gine sont perdues, or pour certaines applications il est essentiel de conserver 
cette information. Si vous devez classer n joueurs en fonction de leur score 
la procédure TRI ne vous sera pas d’une grande utilité. Vous pourrez certes 
connaître rapidement le score du troisième joueur, mais vous ne pourrez plus 
dire qui est le troisième. 


La procédure suivante : TRN (TABLEAU RANG) va remplacer les valeurs 
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d’un tableau par leur rang sans modifier leur position. Cette procédure fonc- 
tionne avec satisfaction si les valeurs contenues dans le tableau sont toutes 


positives. 


À chaque tour de boucle le calculateur sélectionne la plus grande valeur du 
tableau et la remplace par son rang affecté d’un signe négatif. C’est impératif 
si on veut que le calculateur ne mélange pas allègrement les valeurs non encore 


classées (positives) avec le rang de celles qui le sont déjà. 


Cette procédure, vous vous en doutiez, fait à nouveau appel à TMx. Mais 
un léger problème se pose. TMX ne conserve qu’un seul registre et une brève 
analyse nous montre que nous aurons besoin de conserver deux valeurs : le 
code du tableau qu’utilise TMX et un compteur qui nous indiquera le rang de 
la valeur retenue. Allons-nous être contraints d'utiliser un registre mémoire 
pour stocker une de ces valeurs ? Il n’en est rien, avec un peu d’astuce il est 


possible de conserver toute l’information au prix d’une légère perte de temps. 


Reprenons TMX. À la fin de cette procédure la pile contient les valeurs 


suivantes : 
- T — Code de contrôle “consommé” ; 
-Z — Valeur maximum; 
-Y — Registre sauvegardé; 
-X — dresse de la valeur maximum. 


Le code dans T contient, dans sa partie décimale, mais aussi dans sa 
partie entière (à une unité près) l’adresse de fin du tableau. Si nous disposons 
par ailleurs du nombre d’éléments de ce dernier il nous est alors possible 
de reconstituer le code initial. Ce nombre d’éléments constituera la partie 


fractionnaire du compteur de boucle préservé en Y. 


Le programme RNG s’il ne pose pas de problème "stratégique" est donc 


relativement complexe sur le plan tactique : 
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GLELEL-TRHN” CLX 

62 ENTERT i RCL 7 

83 XEG“TNE- FRC 

64 1 EZ 1 EZ 

85 : 

5é LE 

Gr I1SG Y 

BE KT GETO &E 

GSÉLBL 46 ABS 
SEG“TMEX”" —i 
EDH 2BELEL 97 
INT 29 STXIND Y 
CHS 36 15G 
STO IND T GTO à7 
LASTYX : LASTY 
RTK - END. 

17 + 





UN PROBLÈME DE TAILLE 


Ne cherchez pas TNB parmi les procédures déjà écrites, vous ne la trouveriez 
pas. C’est maintenant à vous de la réaliser. Son but est de calculer le nombre 
d'éléments d’un tableau à partir de son code de contrôle. 

Ses spécifications sont les suivantes : 

— le code d’un tableau est initialement en X ; 

— après exécution de TNB le nombre d’éléments du tableau a remplacé ce 

code ; 

— les registres Y et Z sont préservés. 

Ne regardez pas la suite avant d’avoir un peu souffert : 
BIiHLBL" THE" 
AZ INT 
BE ST—-L 
Hé 1 EX 
ST 


RÉ 


KEY 





C’est une procédure très utile qui mérite d’être individualisée. 
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Un autre exercice intéressant consiste maintenant à suivre l’exécution de 
TRN et de comprendre comment il fonctionne. Pour être franc nous ne sommes 


pas très sûrs d’avoir nous-mêmes compris, et pourtant il tourne! 


PAS DE BONHEUR SANS MÉLANGE 


Après avoir mis de l’ordre dans nos tableaux, il est tentant de procéder 
à l’opération inverse qui consiste à les mettre en désordre. L’utilité de cette 
opération ne peut vous échapper si vous savez que le poker se joue avec cinq 
cartes ou si vous êtes un statisticien en quête de permutations aléatoires pour 
la réalisation d’un schéma d’expérience. 

La structure du programme TML (TABLEAU MÉLANGE) est la copie conforme 
de la procédure TRI. Mais au lieu d'appeler TMX nous appellerons GAG : au lieu 
de sélectionner sur un critère précis l’élément à permuter, nous le choisissons 


au hasard. 


18#LBL"TNHL" 
B2KLEL A8 

ä3 ENTERT 

g4 KEG“GAG" 
85 RCL IN x 
g6 K<> IN € 


6 STO IND 
es RCL € 

RS 156 # 

18 GTO 688 

11 -EHD. 





Cet exemple nous montre la force des structures logiques et l’économie 
de temps et de moyens qu’apporte leur utilisation rationnelle. Tout ceci n’est 
possible que parce que les standards adoptés pour HP-41 sont tout à la fois 
cohérents et harmonieux et que nos efforts portent sur le respect de ces normes. 

Une programmation correcte dans un langage déterminé ne peut se faire 
qu’en suivant la pente naturelle du langage. Un algorithme limpide en lan- 
gage APL pour HP-41 peut aboutir à un programme incompréhensible s’il est 


traduit littéralement en BASIC ou en PASCAL. 
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S'AFFICHER 


Après avoir inconsidérément modifié un tableau il est bon de pouvoir le 
visualiser, ne serait-ce que pour profiter des cogitations du calculateur. 

La structure de TAF (TABLEAU AFFICHAGE) nous sera d'emblée familière : 
c’est un balayage simple du tableau analogue à ce que nous avons déjà vu pour 
TCL et TSM. Les seuls problèmes que nous rencontrerons sont liés à la présen- 
tation de l'affichage. Nous allons retrouver les instructions de manipulation 
de caractères et de drapeaux que nous avions déjà utilisées pour la procédure 
TEN. 


Nous désirons obtenir le format d’affichage suivant : 


HNH= Voleur 


nnn sera le rang dans le tableau de la valeur actuellement affichée, il doit 
être chargé dans le registre alpha en FIX 9. La valeur correspondante sera 
par contre affichée avec le nombre de décimales défini avant l’appel de la 


procédure, pour cela, vous vous en doutiez, nous allons réutiliser FM? 


GIÆLBL"TAF" 
G2 KEG"FMz" 
a EDW 

G4 SIGH 

BS CLX 
BéHLEL 69 

67 CLA 

68 FIx 8 

a93 ARCE X 

16 LS LL 

11 FIX IHND T 
12 ARCL INDL 
13 AVIEN 

14 IISG 

15 STO X 

16 IISG L 

17 GTO 49 

18 ST-L 

19 K<> L 

28 -END. 





85 


PROGRAMMER HP-41 


Si vous trouvez que les valeurs défilent trop rapidement à votre gré, sou- 
venez-vous que vous pouvez armer le drapeau 21 avant d'exécuter cette pro- 
cédure, l’instruction AVIEW provoquera alors un arrêt à l’affichage de chaque 


valeur. 





COPIES CONFORMES... 


Avant d'abandonner les tableaux à une dimension voici deux ultimes pro- 
cédures qui opèrent sur deux tableaux. Le but de la première est de recopier 
un tableau en mémoire à partir d’une nouvelle adresse. Le code de contrôle du 
tableau initial est présent en Y et la base de sa copie en X. Une analyse rapide 
(et peut-être incomplète!) du problème nous amène à écrire le programme 
suivant : 

S1#LBL"TCOi” 

2 SICH 

GIÉLEL 69 
RCL IND 


STO IN L 
CLX 


1 

ST+L 
ST+T 
FE 
ISG Y 
GTO af 
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Cette procédure est satisfaisante si les aires occupées par les deux tableaux 
ne se chevauchent pas. Que se passe-t-il dans le cas contraire ? 

Si l’adresse de base du tableau initial est inférieure à celle du tableau de 
départ ce dernier est en partie écrasé mais sa recopie est intégrale. Dans le 
cas contraire c’est la catastrophe! La procédure modifie la partie supérieure 
du tableau, non encore recopiée, et on aboutit à une duplication d’une partie 
de l’information, le reste étant définitivement perdu. 

Le programme Tco1 est donc totalement proscrit dans ce cas de figure. 
Pour résoudre le problème dans cette situation il faudrait balayer le tableau 
source non plus de bas en haut mais de haut en bas. 

Cette nécessité va nous conduire à étudier en détail une deuxième fonction 
de contrôle de boucle : DSE (DÉCRÉMENTATION ET SAUT SI EGALITÉ). 

Comme is6, la fonction DSE utilise un paramètre ddd, f f f, ddd représen- 
tant cette fois l’adresse du haut du tableau. Mais le test de sortie étant un test 
d'égalité si f f f est égal à l’adresse de la base du tableau ce dernier registre ne 
sera pas traité dans la boucle. Pour obtenir un balayage complet du vecteur 
le code de contrôle doit donc être égal à ddd, f f f-1. Cette structure qui rompt 
un peu avec les normes que nous avons jusqu'ici rencontrées a probablement 


été introduite pour être compatible avec l’instruction Dsz (Décrémentation et 


Saut si Zéro) qui existait sur les calculatrices antérieures HP-67 et 97. 


\ Se 
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BiHLEBL TC" 

HZ KH£Z= TT? ; 

GE5 STO 46 Test pour choisir le 

4 1 E3. sens de la recopie 
KEY 


GASEÉLEL 
RCE Transfert de bas en haut. 





sous-programme d'invesion 
du code de contrôle : 
ddd,fffsfff,(ddd-1) 


26#LEBL &G6 
REY 
KERG 11 
ENTERT 
KHEG"THE" Transfert de haut en bas. 
ST-E 
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Cette procédure, en plus de son intérêt utilitaire, peut constituer le cœur 
d’un embryon de base de données. La possibilité de déplacer une partie du 
contenu de la mémoire permet d’écraser un certain nombre de registres (dé- 
calage vers le bas) ou inversement d'ouvrir une nouvelle zone pour y insérer 


des données (décalage vers le haut) . 


.. ET LIBRE ÉCHANGE 


Nous achèverons ce panorama des procédures de gestion de tableaux par 


un sous-programme aussi bref qu’utile, dédié aux nostalgiques de la fonction 


P-s du HP-67. 

Cette fonction permet d'échanger le contenu de deux tableaux indépen- 
dants. Les paramètres d’entrée sont, bien entendu, constitués par les codes de 
contrôle de ces tableaux, la procédure s’achève quand l’un de ces codes est 
dépassé" : 

BISLBL TES" 

2 SICH 

BSELEL 17 
CL 


RCL 
#€> INI 


STO 
ISG 
FS7 z9 


[= 
1: 
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DOUBLE ENTRÉE EN TRAITS SIMPLES 


Nous venons de terminer l’étude des vecteurs à une dimension, et nous 
sommes en mesure de commencer à nous préoccuper de véritables tableaux à 
double entrée. De même que nous avons défini un tableau comme un ensemble 
de valeurs, on peut définir une matrice comme un ensemble de vecteurs, chaque 
vecteur constituant une ligne de la matrice. 

Le problème est plus ardu que précédemment car une seconde dimension 
s’introduit dans l’espace mémoire linéaire du calculateur. 

Heureusement nous ne sommes pas allés au bout des possibilités de l’ins- 
truction ISG, cette dernière peut en effet utiliser un incrément variable différent 
de 1. Pour illustrer cette capacité nous vous proposons l’expérience suivante : 

En utilisant TEN chargez en mémoire à partir du registre RO1 les chiffres 
de 1 à 8. La procédure renvoie le code du vecteur : 1,008. Ajoutez maintenant 
à ce code 2 E-5 et exécutez la procédure TcL. Si vous vérifiez maintenant le 
contenu des registres par la séquence : 1,008 XEQ "TAF" vous pourrez observer 
que les nombres impairs et seulement eux ont été annulés! La procédure TCL 
n’efface plus qu’un registre sur deux. La valeur 2E — 5 que nous avons ajoutée 
à la suite du code de contrôle est appellée le pas ou l’incrément. Nous pouvons 


représenter le vecteur initial sous la forme suivante : 





ce qui peut être considéré comme une matrice à 4 lignes et 2 colonnes. Exécutée 
avec le paramètre 1, 00802 la procédure TcL n’a effacé que la première colonne. 

Le code de contrôle complété par l’incrément recèle donc tous les éléments 
nécessaires et suffisants à la définition d’une matrice : son domaine d’implan- 
tation en mémoire caractérisé par l’adresse de base (ddd) et celle du sommet 
(ff f) ainsi que son nombre de colonnes (cc). Comme nous l’avons montré 
dans l’exemple précédent, ce code de contrôle est en fait celui du premier 


vecteur colonne. 
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Ces prémisses achevées notre ligne de conduite sera simple : pouvoir utiliser 
toutes les procédures décrites pour les vecteurs sur les éléments (ligne, colonne 
ou totalité) d’une matrice. 

Dans l’exemple ci-dessus, nous avons utilisé la procédure TCL sur la pre- 
mière colonne. De façon analogue le traitement d’un autre élément se fera en 
calculant préalablement, par une fonction, le code de contrôle spécifique de 
cet élément. 

Certaines de ces fonctions génératrices de code de contrôle sont parfaite- 
ment triviales, ne comportant que de rares instructions. Elles pourraient être 
introduites en séquence dans le programme principal mais il est préférable 


pour des raisons de clarté de les conserver sous forme de procédures. 


Contrôle de matrice : cMM 
Si l’on souhaite balayer l’ensemble des éléments d’une matrice le plus 
simple est de la considérer comme un vecteur unique dont le code de contrôle 


est celui qui définit la matrice mais débarrassé de son incrément. Donc : 


GiÆLEBL"CMM" 
1 Ez 
Æ 
INT 


1 EZ 
Pi 
- END. 





Sans commentaire ! 


Contrôle de colonne : cmc 

Cette procédure (est-ce possible) est encore plus simple que la précédente : 
il suffit d'ajouter au code de contrôle matrice (en X) l'indice de 0 à c — 1 de 
la colonne choisie (en Y) pour obtenir le code de contrôle de cette colonne : 


GiHLBRL"CMC" 
mn? KC>Y 
G5 INT 


G4 + 
GS .-END. 
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Contrôle ligne : cmML 
Cette procédure est plus complexe que les précédentes car la totalité du 


code matrice initial est remanié : 


GiELEL" CHL" 
KRÉET 
INT 
RCE 
FRC 
ISG % 
INT 
*% 
ST+Y 
Her L 
REY 
INT 
ST+Y 
REY 
1 E-3 





Nous attirons plus particulièrement votre attention sur les instructions 
05 à 07. Elles permettent, sans modifier la pile (le registre L est cependant 
détruit), d'extraire rapidement le nombre de colonnes (lincrément) du code 
de contrôle de matrice. L'avantage de ce processus est d’être valide même si 
l’incrément est absent, c’est-à-dire égal à 1 par défaut. 

Un autre problème à résoudre au cours des manipulations de matrice est 
la localisation d’un élément à partir de ses coordonnées. La pratique a montré 
que la séquence suivante était raisonnablement efficace si le numéro de ligne 


est en Z, le numéro de colonne en Y et le code matrice en X. 


GiHLBL'CMPI" 
G2 KEG*CHEL”" 


A3 GTO“CMC”" 





Cette"procédure" renvoie non seulement en partie entière l’adresse de l’élé- 
ment recherché mais restitue en fait le code de contrôle du segment de ligne 


qui va de l’élément au bord droit de la matrice, ce qui pourrait être utile 
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pour en explorer la partie triangulaire supérieure. Cependant, le contenu du 
registre T est perdu. Si vous tenez à le conserver, nous vous proposons une 


seconde version presque aussi brève : 


GiHLEL "CMP" 
D2 #EG*CHC:" 
83 KEG"CHL" 


G4 INT 
GS -ENS. 





Pour achever ce groupe de procédures voici l’opération inverse de la pré- 
cédente : à partir de l’adresse en Y et du code matrice en X retrouver les 


coordonnées du point. 


GiSiEL' Cor 

Gé INT 

HZ ST— 
fé L 


FRC 


IS # 
INT 
AEGenIY" 
REEY 

- ENT. 





Grâce aux puissantes propriétés de Div la procédure coo préserve les re- 


gistres Z et T. 


CONCLUSION 


Nous avons essayé d’obtenir des procédures compactes et rapides. Avec 
les cinq dernières fonctions vous pouvez traiter les matrices avec une grande 
facilité, quel que soit leur emplacement en mémoire. 

Pour être utilisées avec efficacité, ces fonctions exigent un certain entrai- 
nement. Mais après cette brève période d'adaptation vous pourrez aborder 
sans peur, tout problème de calcul matriciel, et créer des programmes sans 


reproche. 
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CHAPITRE VI 
L'ALPHA ET L'OMÉGA 


KKXHPF-UICREXX 


ALPHA 


d e 

= 

> < > 
RE 
APPEND ASTO ARCL 3ST 


S = © © 


$ CLA 


+ 4 
== © 
— 7 


à 


APPEND ASTO: ARCL 
4 6 QUE | LEE ] (SST 


* L 


* É 


BL 
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HP-41 est doté d’un écran "cristaux liquide" permettant l’affichage simul- 
tané de 12 caractères. Chaque caractère est formé sur une matrice de 14+3 
segments. Toutes les possibilités d'affichage (214 — 16384) n’ont pas été rete- 
nues. Seuls 60 caractères sont actuellement disponibles à l'affichage HP-41. 

Vous avez sans doute noté qu'il était nécessaire de presser la touche 
pour accéder à ces lettres et ces symboles. 

Rappelons également qu’il suffit de penser à retourner le calculateur pour 
avoir l’image du clavier alpha! 

L'utilisation des caractères alphanumériques se fait selon trois axes : 

— la programmation ; 

— des textes de commentaires ; 


— la manipulation de chaînes de caractères. 


LA PROGRAMMATION 


À la base de toute écriture d’un programme sur HP-41 se situe l’obten- 
tion des mnémoniques correspondant aux fonctions. Il est donc indispensable 
d’avoir pratiqué les exemples du manuel de l'utilisateur et de s'être assuré 
au moyen de l’annexe 3 que toutes les méthodes d’obtention des fonctions ne 
posent plus de problèmes. 

HP-41 peut faire des commentaires en cours de programme. C’est en effet 
un des rares micropoches capable d'afficher un texte tout en continuant à tra- 
vailler. Cela évite de s’abîmer dans la contemplation de l’écran dans l’attente 
du flash d’information. De plus, cela peut constituer une aide importante à 
la mise au point des programmes. Il est utile d'indiquer l’opération que le 
calculateur effectue : JE TRIE, JE CLASSE, JE NUMEROTE, JE DORS... 

D'autre part, n’oubliez pas de prévoir un temps d’affichage minimum (une 
seconde) pour permettre la lecture d’un message. Ce temps peut être allongé 
en intercalant des pauses (PSE) dans le cours du programme. 

Enfin, il est bon d'insérer des remarques dans le corps du programme 
pour faciliter sa mise au point et sa maintenance. HP-41 ne dispose pas de 
fonction spécifique dans ce but, mais il est possible d’en obtenir un excellent 


succédané : il suffit de faire précéder la chaîne de caractères par l'instruction 
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FS ? 30. Ce drapeau étant, ainsi que nous l’avons déjà signalé, toujours, désarmé 
pour l’utilisateur, le message qui le suit ne sera jamais pris en compte lors de 
l'exécution du programme. 

Si la liste des remarques est plus longue, par exemple lors de la descrip- 
tion des variables en tête du programme, il est préférable de court-circuiter 
l’ensemble par un branchement inconditionnel (To). 

G1#LBL" EXEMPLE" 
G2 GTO aa 


G3 “RG&=CODE MAT* 
G4 “R1=COMPTEUR" 


GS “R2=VAL CHERCHEE"* 
G6EÉLEL Où | 
97 .END. 





LES TEXTES COMMENTAIRES 


Ces commentaires constituent l’essentiel du dialogue entre vous et le calcula- 
teur. 


HP-41 pose une question à laquelle l’utilisateur doit répondre pour que le 


programme se poursuive. 


La fonction à utiliser dans ce cas est PROMPT. Il est également possible 
d'utiliser la fonction AVIEW avec l’indicateur 21 préalablement armé, si vous 
envisagez d'utiliser un jour une imprimante et que vous souhaitez voir s’im- 
primer l'intitulé de la question. 

Exemples : 

— si la réponse est numérique : 


G1 "SEMENCE ?" 
G2 PROMPT 


— si la réponse est un texte : 


"QOUI/NON 7* 
AON 


SF 21 
AVIEW 
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Quelques conseils pour vos questions : 


— Évitez les messages trop longs 

Exemple : INENVISAGEABLE 

qui après défilement n’a plus tout à fait le sens désiré. 
— Évitez les messages trop courts 

Exemple :? 

qui est très BASIC mais pas très explicite. 
— Précisez, si possible, les unités ou les formats. 


Exemple : 


"OLHET 7° 
"TPS HH.MMSS 7" 


"DATE J.MMAR" 





— Pour les questions répétitives il est bon de créer une boucle qui précise le 
rang d'entrée de la valeur. C’est ce que nous avons fait avec la procédure 


TEN (78) et ce que nous ferons en atteignant ATEN. 


Un dernier cas à envisager est celui des menus. Un menu est un ensemble 
d'options proposées à l’utilisateur qui doit en sélectionner une. L'affichage de 
HP-41 étant constitué d’une unique ligne, les options seront proposées séquen- 


tiellement : 


“"1-ENREGIS" 
PSE 
“2-CALCULS" 


TONE 9 
PFROMPT 
ES IND X 





Cette présentation est cependant assez lente et peut finir par lasser l’uti- 


lisateur averti qui connaît par cœur les codes des options. 


Il est préférable d'utiliser la seconde formule que voici : 
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BSKLEL A1 
CF 22 
"OPTIONS 11-357" 
TONE 9 
PROMPT 
FS?C 22 
GTO INE % 


“1-MOUVEMT " 
PSE 
"2-RADAR”* 





Si l'utilisateur frappe sans introduire de valeur alors le menu lui sera 


présenté puis la question à nouveau posée. 





HP-41 vous répond 


Les conseils, que nous vous donnerons, sont le reflet de ceux proposés pour 
les interrogations. 


Les réponses seront documentées de la même façon, en précisant, si néces- 


saire, les unités choisies. 


Une réponse est généralement constituée de trois éléments : 
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— le descriptif indiquant succinctement de quoi il s’agit ; 
— une valeur numérique ; 
— les unités. 
Ces trois éléments sont placés successivement (voir plus loin la concaténation, 


page :103) dans le registre ALPHA par une séquence d'instructions du type : 


ARCL % 


“+ DEG“ 
AYIEUW 





Il est important de se souvenir que la fonction ARCL place dans le registre 
ALPHA un nombre dans le format (FIX, SCI, ENG) et avec le nombre de décimales 
actuellement sélectionné. Il faut donc vérifier que ce format permet d’obte- 
nir un affichage propre. Il est également souhaitable d’arrondir le nombre à 
afficher (RND) pour éviter de contempler une suite de décimales, résultat des 
approximations parfois douteuses du calculateur. 


Voici d’autres exemples de sorties : 


6.7 METRES 
TAXE 17% 

R£= 168 OHNMS 
SANS RACINE 
SANS CORMNEIL 
PR& : 189 F 


FACT Z : OK 
AYZ EN ALM 
MOL Z,14 MT3 





Remarque : Il est toujours utile de compléter l’affichage par un signal 
sonore qui attire l’attention et souligne le texte. Nous proposons un son grave 


pour les indications d’erreur et un son aigu pour les messages interrogatifs. 


STRUCTURE DU REGISTRE ALPHA 


Contrairement à la petite phrase du manuel de l'utilisateur p36, le re- 
gistre ALPHA n’est pas équivalent au registre X de la pile opérationnelle. Pour 
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mieux saisir ces différences, nous allons effectuer quelques manipulations. Pla- 
cez préalablement 


"A" dans ROI1 : A ASTO 01 
"B" dans RO2 : B ASTO 02 


Effectuez maintenant la séquence : RCL 01 RCL 02 STO 02 VIEW 02 


Le registre 02 contient toujours “B”. Nous allons effectuer une séquence 


apparemment semblable avec : 


ARCL 01 ARCL 02 ASTO 02 VIEW 02 


Le registre 02 contient maintenant "AB". Il est visible que les deux suites 
d'instructions ne sont pas équivalentes. D’une part pour le registre ALPHA il 
y a eu concaténation (voir plus loin le détail de ce travail, page : 103), d’autre 
part la pile opérationnelle a une structure 

LIFO (LAST IN FIRST OUT) en français : « Les derniers seront les pre- 
miers ». Le registre ALPHA, quant à lui est du type FIFO (FIRST IN FIRST 
OUT) en français : « Faites la queue comme tout le monde! » 

Mais ce n’est pas la seule subtilité ; reprenons l’exemple du manuel p. 36 : 
"Ex" ASTO 01 "DE" ASTO 02 "DECALAGE" ASTO 03 

ARCL 01 ARCL 02 ARCL 03 

On obtient à l'affichage : “X DE DECALA “ 

Il y a de la fuite dans les idées! 

Que nous apprend cet exemple ? Chaque registre contient au plus 6 carac- 
tères (manuel page 55) c’est pourquoi nous perdons le "GE" de "DECALAGE". 

Le "E" de "EX" est lui présent dans le registre ALPHA mais n’apparaît pas à 
l'affichage limité à 12 caractères. Une double-pression sur le ramènera 


à l’écran en éliminant le tiret d’attente. 


ON COUPE ET ON COLLE 


Envisageons maintenant les chaînes de caractères comme des objets que 
HP-41 peut manipuler au même titre que les valeurs numériques. Les trois 
seules opérations possibles sur les chaînes sont la troncature, la concaténation 


et les tests. 
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La troncature 


Nous venons d’observer le phénomène dans l’exemple qui précède. Il nous 
reste à dompter cet animal un peu rétif. En examinant les possibilités offertes 
pour tronçonner les chaînes il apparaît à l’évidence que dans sa version de 
base HP-41 n’a pas été conçu pour le traitement de texte. 

Il existe deux façons de découper le contenu du registre ALPHA : le stockage 
dans une mémoire et la fonction ASHF (ALPHA SHIFT : glissement du registre 
ALPHA). Dans les deux cas la césure se fait entre le sixième et le septième 
caractère. Travaillant ensemble ces deux fonctions permettent cependant de 
stocker en mémoire la totalité du registre ALPHA. 

Pour illustrer la chose, et puisque nous ne vous avions point proposé de 
procédure depuis fort longtemps, en voici une qui vous permettra de placer 


en mémoire une succession de chaînes. 


 BIiSÆLEL"ATEH" 19 “CHH”" 537 GTO 41 

az .1 26 ARCL T FSKLEL"CODE" 
63 : Zi “+?” 39 FIX IHD Z 
G4 22 AO 44 K#<> L 

65 x % Fe 2x PROMPT 41 1E2 

86 ë 24 FCFC 2% 42 

ar É 25 GTO“CODE" AT KCDT 

68 26 CLX 44 INT 

as 27 LASTYX 45 ST- L 

i1& 2S#LEL 92 46 ST+ Y 

11 29 ASTOIND Y 47 CLX 

17 36 ASHF 48 1E3 

17 31 ISG 43 STx 

14 32 STO #* 08 ST 

15 33 SE * 91 K<> 

16 S 34 GTO 92 + 

1 25 IISG 153 AOFF 
1B#HLEL A1 56 STO 54 -END. 


d 





Cette procédure est longue mais elle fait beaucoup de choses : 

— Les paramètres d’entrée sont le registre de base de la matrice de texte 
en X et le nombre maximum de caractères d’une chaîne. Ce dernier 
paramètre va servir à déterminer le nombre de registres nécessaires au 
stockage d’une ligne de texte. 

— Les pas 01 à 18 sont destinés à diverses opérations, mettre en mémoire 
le format, préparer les pointeurs, déterminer le nombre n de registres 


affectés à une ligne, et passer en mode alpha. 
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— Du pas 19 au pas 38 se situe la boucle d'interrogation, sa structure est 
très proche de celle de TEN, ici encore la terminaison des entrées se fait 
en pressant directement mais c’est cette fois le drapeau 23 qui est 
testé. 

— Les instructions 29 à 35 constituent une seconde boucle, imbriquée dans 
la première, dont le rôle est de découper le contenu de ALPHA et de le 
charger dans N registres consécutifs. 

— Les lignes 39 à 55 terminent la tâche en calculant le code de la matrice 
finale dont le nombre de lignes est égal au nombre de lignes de texte 
introduites et le nombre de colonnes (l’incrément du code de contrôle) 
précise le nombre de registres requis pour la mise en mémoire d’une 


ligne. 


La concaténation 


La nécessité de reconstituer les chaînes est évidente. Cette opération, 
la concaténation, consiste donc à enchaîner les chaînes les unes derrière les 
autres. 

Si HP-41 tronque mal, il concatène fort bien grâce aux deux “instructions” 
ARCL et “+”. Si nous avons mis des guillemets à instructions c’est pour préciser 
que n’est pas une instruction mais un caractère. 

Un peu particulier ce caractère puisqu'il n’apparaîtra jamais à l’affichage. 
Placé au début d’une ligne de texte en mode programme il indique que les 
caractères qui le suivent doivent se placer à la suite du contenu courant de 
ALPHA et non le remplacer. En mode direct cette instruction place derrière la 
chaîne affichée le tiret d’attente, le contenu de ALPHA peut alors être complété 
ou corrigé. 

La fonction ARCL cache elle aussi des propriétés particulières, c’est bien plus 
qu’une instruction de rappel du contenu d’un registre. Si le registre adressé 
contient une valeur numérique ARCL se livre à un intense travail de codage 
pour transformer l’expression numérique de ce nombre en son image en code 
ASCII. 


Si vous effectuez la séquence d'opérations suivante : 
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"CLA" FIX 4 [ALPHA] ARCL X ASTO X 1/> 


le calculateur vous répond [ALPHA], le 3,1416 qu’affiche le registre X n’est plus 


un nombre mais la suite de six caractères 3, la virgule, l etc... 


Ces notions sont arides, faisons une pause pour s’amuser un peu. Voici un 
petit programme qui vous permettra de faire pénétrer HP-41 dans le monde 


de la littérature. 


Le cadavre exquis est un “exercice de style” qui fit fureur à la période faste 
de lPouzrpo (OUVROIR DE LITÉRATURE POTENTIELLE, nous ne sommes pas 
les seuls à user d’abréviations barbares) auquel participèrent des noms célèbres 


comme GEORGES PEREC, RAYMOND QUENAUX. 


Tombé un peu en désuétude si ce n’est dans le domaine enfantin, il s’agit 
pour un groupe de personnes d'écrire chacun un morceau de phrase dans 


l'ignorance de ce qui précède et de ce qui va suivre. 


La phrase achevée, on place le tout bout à bout et on lit à haute et intel- 
ligible voix le résultat final. Ce dernier a, généralement, la clarté d’un vers de 
NOSTRADAMUS ou d’un message de PIERRE DAC émis par la BBC durant la 


dernière guerre. 


HP-41 grâce à sa prodigieuse faculté d’oublier ce qu’il vient d’exécuter 
quelques millisecondes plus tôt, pourra tout seul créer pour vous ces phrases 


inoubliables. 
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BiELEL"KDVEX" KEVT 

&GZ KES"HSD*" "“ELE 

GSÉLEL 14 HÈVTF 

+ AY “HA 
CLA ARCLINEI 
“EG"NONM" RTH 
XEG"VERE" 22ELEL"VERE" 
*EG"NONM" 23 1.887 
AVIENH 24 KXEG*GAG" 
GTO 14 25 "HF * 

11#LBL NOM" 2: ARCLINID *# 

12 1.087 Se *Æ _* 

13 KEG"GAG" 28 RTH 

14 ENTERT 29 -END. 

15 6€ 


‘ : R18-— "COLLE" 
VOICI QUELQUES EXEMPLES R19= “CORNE” 
LE ZEBRE SOLDE LA PINCE R?26= “COTE"* 
LA BASE BOSSE LA GRELE R21= "COUPE" 
LA CACHE JURE LE COCHE R22= “DALLE” 
LE SOLDE COCHE LA FILE R23= "DAME" 
LA GARE PERLE LA PLUME EZ24= “DATE" 
R25= "FERME" 
RZ6= “FICHE" 
RGIi= "BANDE" R??= "FILE" 
ROZ= “HARRE" R2S= "FORCE" 
RES= “BASE” R29= "FORME" 
RG6d4= “BECHE" E3@= “FOULE”" 
RAS= "BINE" R31= “CGARE" 
R6S= “BISE* R32= "GLACE" 
RG7= “BORNE” R33= "“GOMME”" 
REB= “BOSSE" R34= “GRELE”" 
RO9S= “BOTTE" R3S= “GREVE" 
R16= “"BRIDE‘* R36= "“HACHE" 
Ri1= "CACHE" R3S7= “JAUGE" 
Éig= "CALE" R3S= "JOUE" 
R1Z3= “CORRE” R3S= “LANCE” 
R14= "CASE" R4G= “LAVE” 
R1S= “"CASSE" Rd4i= "LIME" 
R1i6= "CAUSE" R42= "MINE" 
R17= "CIRE" R43= “HICHE”* 


Gb 
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R44= “NORME "* 
R4S5= “NOTE" 
R46= "“PECHE" 
R47= “PEINE" 
R48= “PERLE" 
R49= "PINCE" 
RSG= "PISTE" 
RS1i= “PLUME ®* 
RS2= “POCHE" 
RS3= "PORTE" 
RS4= “RIDE" 
R5SS= “RUINE" 
RS6= “RUSE”" 
RS?= "SCIE" 
R58= “SOUDE * 
RS9= “TACHE" 
R6G= "TAKE" 
R61= "TRACE" 
R6Z2= “BARDE * 
R63= "BRAVE" 
R64= "COCHE" 
R6S= "CODE" 
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R66= "CORSE" 
R6F= “CREPE* 
R68S= “GARDE” 
R69= “GIVRE" 
R7O= "GUIDE" 
R71= “JOINT” 
R72= "JUGE” 

R73= “JURE" 

R?4= “LIVRE" 
R?795= “MIME" 

R?76= "REYE" 

R77= "SABLE" 
R78= "SABRE" 
RF93= “SACRE" 
R8@= "SIGNE" 
R81= "SINGE"* 
R82= "SOLDE" 
RBZ= "SUCRE" 
R84= "VIDE" 

R8SS= "VOILE" 
R86= “ZEBRE" 


Plus prosaïquement voici une nouvelle procédure qui vient compléter ATEN 


puisqu'elle permet, à partir du code de contrôle généré par cette dernière, de 


reconstituer et d’afficher les lignes précédemment mises en mémoire. 


GB1#LBL"ATAF"* 
ENTERT 
RAEG"CMNM" 
REY 
FRC 
ISG *% 


IHT 
SIGH 
GSHLEL Az 

18 CLA 

11 CLYX 

12 LASTS 
13#LEL A4 





ARCLIND 
I1SG Y 
FS? 36 
GTO am 
DSE * 
GTO @4 
AVIEH 
TONE 7 
GTO 03 
23#LBL 06 
24 AVIEW 
25 TONE 7 
26 -END. 


Nous retrouvons des techniques éprouvées pour traitement des tableaux : 


l’appel à cmM et l'extraction de l’incrément par la séquence FRC, ISG X, INT. 


Nous attirons également votre attention sur l’utilisation du négateur FS? 30 


pour inverser le sens de sortie par ISG au pas 15. 


Pouvons-nous aller plus loin dans le traitement des chaînes ? La réponse 
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est positive si on sacrifie deux facteurs importants : l’espace et le temps. Un 
tel sacrifice est, bien sûr, relatif. 

Le but de la procédure qui suit est de décomposer à nouveau le registre 
ALPHA pour constituer un vecteur de caractères, un registre pour chaque 
caractère (c’est le sacrifice d'espace) et malgré les efforts désespérés du pro- 
grammeur, cette procédure n’est pas très rapide (c’est le sacrifice de temps). 

Cette procédure travaille entièrement dans la pile mais, nouvelle conces- 


sion, elle ne peut traiter que des chaînes n’excédant pas 18 caractères : 


G1#LBL*"A-C" Dei 
DSE * 
LASTX 


# 
# 


+ 
RTN 
31#LEL 45 
32 K=V?7 
GTO aa 
“12345" 
ARCL 
ASTOIND L 
" ASHF 
KES 95 AsTO Ÿ 
“ES A5 6" 
“EG A5 ARCLIND L 
LASTY ASHF 
FRC ASTOIND L 
ST- L 1SG L 
1 Ez STO X 
STx GTO as 
ve L 4A6#LEL aa 
U=Y7 47 RDH 
ASTOIND * 48 -END. 





La procédure reçoit en X l’adresse de base du futur tableau de caractères, 
et dans ALPHA la chaîne à décomposer. 

Les pas 02 à 13 constituent une séquence d’initialisation : préparation et 
stockage dans L de ce qui deviendra le code de contrôle, chargement dans les 
registres Y, Z et T du contenu de ALPHA (d’où la limite à 18 caractères) et 
création d’une chaîne vide dans X (il ne faut pas confondre une chaîne vide 
de zéro caractère avec un espace qui lui, bien que tout aussi invisible, est un 


caractère. 
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Comme il n’y a plus de place dans la pile pour y installer un compteur, un 
sous-programme 00 est appelé trois fois pour traiter le contenu de chacun des 
registres Y, Z, T. Après ces trois appels le code de contrôle final est généré. 
Cette séquence tient compte également du cas particulier du registre ALPHA 
initialement vide, dans ce cas, le tableau est réduit à un seul registre qui 
contient un caractère vide. C’est une option. On aurait pu choisir de signaler 
ce cas en renvoyant 0 en X à la place d’un code de contrôle. Vous choisirez en 
fonction de votre application. 

Venons-en maintenant au sous-programme 00 qui constitue le cœur de 
l’ensemble, il est lui-même constitué d’une boucle qui traite les uns après les 
autres les caractères présents dans le registre Y. 

Cette boucle est du type TANT QUE (coNbiTIioN) FAIRE, le’ test de sortie 
(x=Y? : le registre Y est-il vide ?) est donc placé en début de boucle. 

Puis des pas 34 à 42 prend place une série de concaténations et de tronca- 
tures dont le but est d'isoler le caractère le plus à gauche du registre Y et de 
replacer dans ce même registre la chaîne initiale débarrassée de ce caractère. 
En regard des instructions du programme nous avons figuré l’évolution du 
contenu du registre ALPHA. On constate que le registre mémoire adressé par 
L, qui doit finalement recevoir le caractère isolé, est utilisé transitoirement 
comme registre tampon. 

Une fois converti en tableau de caractères, et disposant du code de contrôle 
de ce dernier, quelles opérations peut-on effectuer ? 

— Connaître la longueur de la chaîne : il suffit de placer le code de contrôle 

en X et d’appeler TNB; 

— Replacer la totalité de la chaîne dans ALPHA. Il nous faudra pour cela 


créer une procédure très simple : 


BiÉLEL"C-R* 
az STO EL 

93 CLiA 
BA4ÆELBEL 6e 


95 ARCLINED L 
n6 IISG L 

6 GTO 46 

605 -END. 





— Le code de contrôle est initialement en X. En fin de procédure la chaîne 
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est reconstituée dans ALPHA, seul le registre L a été modifié. 
— Il est également possible de ne rappeler dans ALPHA qu’une fraction de 


la chaîne initiale, c’est ce que fait la procédure suivante : 
GLELEL"AFREC" 
GAZ INT 
O3 SIGH 
Gé ST+ L 
CL 
1 E-3 
RE 
ST+ 


+ 
GTA" 
-ENT 


A” 


EL 

L 
HER L 

C— 





— Le registre X contient initialement le code de contrôle du vecteur de 
caractère, le registre Y contient lui un code dd, 0 f f indiquant les rangs 
du premier et du dernier caractère de la sous-chaîne. En fin d’exécution 
cette sous-chaîne est dans ALPHA et dans X on retrouve son code de 
contrôle. 

Voici un bref exemple d’utilisation de ces procédures : 

DECAMETRE 2 XEQ "A-C" 

HP-41 vous répond 2,010 vous indiquant que les caractères de la chaîne sont 
conservés dans les registres 02 à 10. Le registre ALPHA contient maintenant “E”, der- 
nier caractère du mot introduit. Sauvegardons le code de contrôle dans R01 (STO 01) 
et appelons TNB. La réponse quasi immédiate est 9, effectivement “DECAMETRE” 
comprend bien neuf lettres! 

Introduisons maintenant la séquence : 6,009 RCL 0 XEQ "AFRC" . Un coup 
d’œil dans le registre ALPHA, on y lit “ETRE”. Poursuivons par 4,006 RCL 01 XEQ 
"AFRC", nous obtenons cette fois “AME”. Vous doutiez-vous qu’un banal instrument 


de mesure contenait potentiellement de tels concepts philosophiques ? 


TESTER LES CHAÎNES 


Les tests de chaînes, comme les numériques s’effectuent à l’aide des re- 
gistres X et Y. On en déduit donc que, ne pourront être testées, que des 


chaînes de longueur inférieure ou égale à six caractères. 
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Seuls sont disponibles les tests d'égalité ou d’inégalité (x=Y? et xzY? ) le 
tri alphabétique pour être réalisable doit faire appel à des techniques sophis- 
tiquées qui dépassent largement le cadre de cet ouvrage (nous renvoyons le 
lecteur intéressé aux articles et ouvrages donnés en bibliographie). 

Ceci étant, toutes les méthodes décrites dans le deuxième chapitre concer- 
nant les tests d’égalité sont entièrement transposables aux chaînes, en particu- 
lier, les techniques de branchement indirect sont valides puisque les étiquettes 
peuvent être alphabétiques aussi bien que numériques. 

Voyons-en un exemple très utile avec la procédure suivante. 

Le choix d’une option se ramène souvent à une simple alternative qui 
demande comme réponse : OUI ou NON. Quand le problème se pose il suffit de 
placer dans le registre ALPHA l'intitulé de la question et de le faire suivre par XEQ 
"O/N", au retour de la procédure l’indicateul 23 est armé si l'utilisateur a répondu 
“O” et désarmé s’il a répondu “N” : 


GiÉLEL O-H" PSE 16 GTO 51 
G2 AGH FCT 23 1FHLEL "HS 
63 CF 21 GTO 2 19 CF 23 
G4ELEL 41 ASTO L 19#LBL"-0" 


65 CF 23 SF 2% 26 CF 25 
Gé "HCO-HE7" GTO INE L 21 RAOFF 
Gr AVIEH 5 CLARA 22 .-END. 
BSELEL 2 





Le drapeau 23 est utilisé pour vérifier qu’une entrée a été effectuée, dans le 
cas contraire, la boucle sur l’étiquette LBL 00 se poursuit et le message clignote 
à l’affichage. Si un caractère est introduit le drapeau 23 s’arme, le caractère est 
placé dansL et l’appel indirect est effectué pour un branchement à “N” qui désarme 
l'indicateur 23, ou à “O” qui le conserve. Le tout s’effectue sous la haute garde de 
l'indicateur 25 qui veille à la validité des entrées. 

Pour être exhaustif voici la façon de résoudre un ultime problème : les 
registres du HP-41 sont banalisés, ils peuvent contenir aussi bien une valeur 
numérique qu’un fragment de chaîne. Si vous désirez savoir, en cours de pro- 
gramme, si un registre contient l’une ou l’autre de ces deux catégories de 
variable il vous suffit de rappeler en X et d’effectuer la fonction siGn. Dans le 


cas d’une chaîne le contenu de X sera nul, la chaîne étant sauvegardée dans L. 
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La fonction siGn est la seule qui soit susceptible d’agir sur les chaînes comme 


sur les nombres. 
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Solution des exercices 
Obtention des fonctions 
Description des fonctions 
Drapeaux 


Procédures et code-barre 


113 


PROGRAMMER HP-41 


114 


SOLUTION DES EXERCICES 


ANNEXE 1 
Solution des exercices 


SÉQUENCE DE LETTRES NON RÉPÉTITIVES 


Quatre lettres sont proposées, donc deux drapeaux suffiront pour mémo- 


riser la dernière lettre introduite en utilisant le code suivant : 


Lettre FO1 FO2 


A 0 0 

B 0 1 

C 1 0 

D 1 1 

Les 4 sous-programmes sont alors : 

01 LBL A 08 LBL B 15 LBL C 22 LBL D 
02 FC?C 01 09 FC?C 01 16 FC?C 02 23 FS? 01 
03 FS ? 02 10 FC? 02 17 FC? 01 24 FC? 02 
04 “HA” 11"+B" 18 “+C” 25 “+-D” 
05 CF 02 12 SF 02 19 SF 01 26 SF 01 
06 AVIEW 13 AVIEW 20 AVIEW 27 SF 02 
07 RTN 14 RTN 21 RTN 28 AVIEW 


29 END 


La fonction booléenne utilisée est un NAND (NON ET), l'instruction “+” n’est 
effectuée que si NON (F01 et F02) Ce qui peut aussi s’écrire NON F01 OU NON F02 ou 
encore F01 implique NON F02... et c’est pourquoi votre HP-41 est muette. 


LA SUITE MYSTERIEUSE 


Le fait que ce problème soit posé comme application du changement de 


base en facilite grandement la résolution. 
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La suite est constituée par différentes représentations du nombre 12 dans 
les bases de 12 à 4. La valeur à trouver est donc l'expression de 12 en base 
D: 

5 12 XEQ "10-b" — 22 


Moralité : en cas de problème il est bon de consulter la base. 


AU PIQUET ! 


La solution est, pour le probabiliste moyen, absolument évidente : 
— le nombre de mains possibles est égal aux nombres de combinaisons de 
12 éléments parmi 32, donc : 
32 12 XEQ "CB" — 2257902840 
— si on retire les têtes, soit 12 cartes, il en reste 20. Le nombre de mains 
justifiant l’annonce “10 de blanc” est donc : 
20 12 XEQ "CB" — 125970 
Il suffit de faire maintenant la division de ces deux valeurs pour découvrir que 
l’annonce se produit en gros une fois sur 1800 mains distribuées. Pour deux 
joueurs, à raison d’une donne toute les 5 minutes, cet événement se produit 
en moyenne une fois toutes les 70 heures. Bonne nuit! 
PS. Ce problème est extrait du livre : “La chance et les jeux de hasard” 
de MARCEL BOLL (sic)! 


LA SOLUTION AU NOMBRE DE SOLUTIONS 


Ce problème est dû à Pierre Berloquin responsable, entre autres, des jeux 
mathématiques du Monde. 

La solution jaillit quand on découvre que 13 peut en fait s’écrire : 

1+1+1+1+1+1+1+1+1+1+1+1+1=13 

Parmi ces 12 signes + il suffit d’en sélectionner 3 pour isoler 4 sommes de 1 
(c’est-à-dire 4 entiers). Si nous choisissons le 4e, le 7e et le 8e, nous obtenons une 
solution : 

4+3+2+4=13 
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Il y a donc autant de solutions que de combinaisons de 3 signes + parmi 
12 donc : 

12 3 XEQ "CB" — 220 

Pour les anxieux, la liste des 220 solutions a été déposée sous pli scellé 


chez MAÎTRE DUMATHEUX. 
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Obtention des fonctions 


LA FONCTION 


La méthode universelle pour obtenir la totalité des fonctions consiste à 
utiliser XEQ. 

Le processus est le suivant : 

— en mode calcul, pressez la touche immédiatement suivie de [ALPHA]; 

— épelez maintenant le nom de la fonction désirée (uniquement le nom, tel 


qu’il apparaît au catalogue 3) et quittez le mode ALPHA. 


Ex : SIN [ALPHA] ; 

FC? [RPHA] 

Si la fonction ne demande pas de paramètre (cas de SIN dans l'exemple qui 
précède, elle est immédiatement exécutée en mode calcul ou enregistrée en mode 
programmation. 

Si la fonction est paramétrée (cas de FC?) le calculateur affiche alors de un à 

trois tirets d’interrogation pour l'introduction de ce paramètre. 

Dans ce cas plusieurs possibilités sont à envisager ! 

— il s’agit d’un appel indirect : pressez immédiatement la touche jaune. 
Le calculateur affiche IND à la suite du nom de la fonction toujours suivi des 
tirets interrogatifs ; 

— il s’agit d’un adressage direct. Trois cas sont alors possibles : 

— le paramètre est numérique. Introduisez le nombre de chiffres exigé. 
Dès l’entrée du chiffre ultime la fonction est exécutée où mémorisée. 
Si le paramètre est compris entre 01 et 10, les 10 touches supérieures du 
clavier peuvent être utilisées ; 

— le paramètre est alphanumérique (nom de procédure ou de programme). 
Pressez la touche [ALPHA], frappez le nom désiré, puis à nouveau 
[aLPHAJqui déclenche l’exécution ou la mise en mémoire ; 

— le paramètre est l'indication d’un registre de la pile. Pressez tout 
d’abord la touche [] (point décimal), le calculateur affiche ST(pour 


STACK : en français PILE) suivi d’un seul tiret. Il vous reste à préciser 
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le registre voulu en appuyant sur la touche correspondante : 
-  STO pour le registre L 


- 6 pour le registre X 
- X pour le registre Y 
- 1 pour le registre Z 


- 9 pour le registre T 
L'avantage de la fonction XEQ est sa généralité. Son utilisation présente cependant 


quelques inconvénients : 
— la frappe de l'intitulé complet de la fonction peut devenir fastidieuse si 
le mnémonique est long et si la fonction est fréquemment utilisée ; 
— la recherche de la fonction appelée peut être relativement longue si plu- 


sieurs modules d'application sont connectés. 


L’ASSIGNATION 


Pour éviter ces deux inconvénients il est possible d'appeler le nom d’une 
fonction en ne pressant qu’une seule touche. Le nom de cette fonction doit 
avoir été préalablement assignée à l’aide de la commande AsN : 

- une assignation commence par la séquence de touche : 

[1] 

à la suite de cette séquence le nom de la fonction, tel qu’il apparaît au cata- 
logue 3, est épelé. Si la fonction demande un paramètre, ce dernier ne peut 


pas être précisé au moment de l’assignation. 
Quand l'intitulé de la fonction a été intégralement introduit, on presse à 


nouveau la bascule FALPHAI. 
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HP-41 affiche alors un tiret interrogatif. Il ne vous reste plus qu’à presser 
la touche à laquelle vous souhaitez affecter la fonction, pour achever l’assi- 
gnation. Le nombre qui apparaît alors à l’écran indique la localisation de la 
touche choisie : le chiffre des dizaines précisant sur le clavier la ligne considé- 
rée et celui des unités le rang sur cette ligne de la touche choisie. Si la touche 
a été utilisée, le nombre est alors négatif.68 

Le rappel d’une fonction assignée peut se faire à tout moment à condition 
que le calculateur soit en mode user. Dans le cas où la fonction appelée exige un 
paramètre ce dernier sera introduit à la suite du nom de la fonction comme il 


est indiqué au paragraphe précédent. 


LES OPTIONS DÉFAUT 


Pour vous simplifier la tâche, Hewlett-Packard, à préassigné au clavier 68 
fonctions et commandes directement accessibles. Presser la touche correspon- 
dante, éventuellement après la touche [æ] (sHirT) reste la plus simple méthode 


d’appel d’une fonction. 
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Index des fonctions 


Toutes les fonctions du HP-41C peuvent être enregistrées 
comme instructions dans la mémoire programme sauf celles 
marquées d'un astérisque. Les fonctions apparaissant 
iifféremment au clavier et à l'affichage sont listées 

avec leurs deux formes, celle du clavier en premier.(Ex.: 
au clavier et [ST] à l'affichage). Sauf indication 
contraire (°), toutes les fonctions peuvent être exécutées 
à l'affichage et réaffectées. 


Utilisation, modes et indicateurs 





ADV 


Touche de mise sous tension. 

Voir [OFF] et [ON]plus loin 

Mise hors tension 

Signal sonore 

Signal à tonalité variable.n= 

choix de la tonalité 

Touche du mode personnel 

Touche du mode programme 

Touche du mode alphanumérique 

Exécution.Nom de programme, de CREQ] ( [ALPHA] 

fonction,label numérique ou ajoute un octet 

adresse indirecte pour chaque 
caractère du nom) 
[(XEQ) indirect 
ES) numérique 

Utilisation de la fonction 

secondaire d'une touche 

Avance papier 


Affichage et pile opérationnelle 


. 





Prolongation d'une chaîne alpha- 
numérique 

Mise sous tension de l'affichage 
Notation ingénieur .n=nombre dechiffres 
significatifs après le premier 
Notation virgule fixe.n=nombre de 
chiffres après la virgule 
Notation scientifique.n=nombre de 
chiffres après la virgule 
Introduction de l'exposant de 10 
Touche de correction 

Copie du contenu de X dans Y 
Echange des contenus de X et de Y 
Echange des contenus de X et d'un 
registre de stockage.n=numéro du 
registre 
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Temps Message 
d'exécution d'erreur 


Encombremert en 
nombre d'octets 


Données Sorties 











x conservé NONEXISTENT 
1 
2 
2 k;ni conservé 60 NONEXISTENT 
3 
1 
1 
1 
2 16 
2 Affichage 16 
2 16 
1 84 

+ 

1 x ÿ,X 1} 
A RTE ÿ,X 10 
2 x 
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ŒRY où RDN] 
[CL] 


CLD' 
Eejos [Ex 


Permutation circulaire des contenus 
de la pile vers le bas 

Permutation circulaire des contenus 
de la pile vers le haut 

Effacement de l'affichage 

Effacement de la pile opérationnelle 
Effacement du registre X 


Mathématique générale 


+ 


Œlou [2 


= ou [(L/X] 


ou 
[_Y#] ou [SORT 


ou 


PRET 


Al 
E 


ES 


Addition 
Soustraction 
Division 
Multiplication 
Changement de signe 


Valeur absolue 

Partie entière 

Partie fractionnaire 
Arrondi 

Inverse 

Carré 

Racine carrée 
Pourcentage 

Différence en pourcentage 
Utilisation du nombre 
Modulo 

Signe d'une expression 


Logarithmes et exponentielles 


EN 


Éd 


Er x-1 


BouCrx] 


Statistiques 


Æ 
Fra 


CSDEV] 





Logarithme décimal 

Logarithme népérien 

Logarithme népérien pour des arguments 
proches de 1 

Exponentielle décimale 

Exponentielle népérienne 

Exponentielle népérienne pour des 
arguments proches de 0 

Y élevé à la puissance x 


Définition du bloc des six registres 

statistiques 

Accumulation de données 

Suppression ou correction de données 

Effacement des registres statistiques 
Factorielle 

Moyenne 

Ecart type 
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Hhbhbhhhhhhhhh PRE 


be 


bb 


nn 


bhhbhhh 


Encombrement en 
nombre d'octets 









Données 


Sorties 


Temps 
d'exécution 





x Dm De De Dé Dé Dé Dé KA x 


x * 
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eERE 











ERP RETE EE 


(ll 

















Message 
d'erreur 


DATA ERROR 
ou 
ALPHA DATA 
ou 


OUT OF RANGE 


DATA ERROR 
ALPHA DATA 


OUT OF RANGE 


NONEXISTENT 


OUT OF RANGE 
ALPHA DATA 
DATA ERROR 


Trigonométrie 
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T 


SIN’) ou (ASIN 
ou COS] 
ou (TAN) 


Ë 


À 
DEG 
GRAD 


Conversions 





BE 


FÉÈEË 


Registres mémoire 


+ 


Ë 


[4 


n 


ASE E 
SET 


a E 
| | 
Q| | 

Le] 


n 


AST x|ou 
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Sinus 
Cosinus 
Tangente 

Arc sinus 
Arc cosinus 
Arc tangente 
Unité=-degré 
Unité-grade 
Unité-radian 


Décimal_,octal 
Octal .décimal 
Degrés _. radians 


Radians . degrés 

Polaire rectangulaire 
Rectangulaire . Polaire 
Sexagésimal_… décimal 
Décimal . sexagésimal 
Addition sexagésimale 
Soustraction sexagésimale 


Répartition de la mémoire.n=nombre 

de registres de stockage de données 

Rappel du dernier nombre introduit 

Stockage .n=numéro du registre 00 à 15 

à 99 
[STO] indirect 

Addition en mémoire 


Soustraction en mémoire n=numéro du registre 

Multiplication en mémoire 

Division en mémoire 

Rappel n=numéro du registre 00 à 15 
RCE] 16 à 99 
RCE] indirect 





Contrôle d'un registre.n= 
numéro du registre 
Effacement des registres 


Traitement des chaines ALPHA 


AOFF 
RON 


Fe 


Annulation du mode ALPHA 
Mode alphanumérique 
Décalage à gauche de la chaîne ALPHA 
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Encombrement en 
nombre d'octets 





PhHÉRHPBBR ph PH 


D NN 


D 


ND NN 


bhbh 


X XX XX 


<< 





x x x x * *X » 


REG 
REG 
x 





Données 
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Sorties Temps 






450 
150 
450 
450 
310 

19 

20 


XX H X »% »% 
EEE 


L 120 
L 65 
L 110 
x,L 90 


L 300 
L 260 





L 40 
L 30 
L 100 
L 100 


REG 20 
REG 
REG 


REG 40 
x 22 


X 
X 


affichage { affichage 130 








31 
31 
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d'exécution 








REG 12+2,7xSI2E 


——————5—— 


Message 
d'erreur 





ALPHA DATA 
ou 

DATA ERROR 

OUT OF RANGE 


ALPEA DATA 
ou 
DATA ERROR 


NONEXISTENT 


OUT OF RANGE 


LASTO ] 





*° [Go D 
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Affichage d'un message 
Stockage d'une chaîne ALPHA, 
n=numéro du registre 

Rappel d'une chaîne ALPHA, 
n=numéro du regisire 
Contrôle d'une chaîne ALPHA 
Effacement du reaistre ALPHA 


Affectation.Nom de fonction et 
numéro de touche 

Un pas en arrière 

Listage du catalogue .n=numéro 

du catalogue, 

Effacement du programme nommé 
Copie d'un programme 

Suppression de ligne de programme 
n=nombre de lignes. 

Fin de programme 

Branchement à l'adresse indiquée. 


GTO] (00 à 14) 
(15 à 99) 
[GTO] (ALPHA ajoute 


un octet par 
caractère du nom) 


ÆTO] indirect 


Branchement manuel 


Branchement en fin de mémoire 

programme et préparation pour 

un nouveau programme 

Adresse d'un programme dans la 

mémoire 

(00 à 14) 

(15 à 99) 
LBL] (ALPHA ajoute 
un octet par 
caractère du nom) 





Compactage de la mémoire programme 
Pause 

Renvoi 

Marche/arrêt du programme 

Un pas en avant 

Arrêt programmé 
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Encombrement en A Temps Message 
nombre d'octets Données FonUeS d'erreur 


}oNEx iSTENT 








280 


\PRIVATE-RAM 
ONEX1S'TENT 


32 om 








YA 


1300 


bhH 
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Indicateurs binaires 


n ou adresse Annule l'indicateur concerné 
indirecte 
[FC7]n ou adresse Test pour 0 de l'indicateur 


indirecte concerné 

FS2C|n ou adresse Test pour 0 de l'indicateur 
indirecte concerné et mise à zéro 
FSAn ou adresse Test pour 1 de l'indicateur 
indirecte concerné 

[FC?T] n ou adresse Test pour 1 de l'indicateur 
indirecte concerné et mise à zéro 
(Sn ou adresse Mise à 1 de l'indicateur 
indirecte concerné 

Tests 


z=y?) ou [X=Y?] est-il égal à Y ? 


D D 
OK 


est-il inférieur ou égal 
est-il différent de Y ? 
est-il différent de O ? 
Soustraction d'une unité et saut si 
égalité. n = numéro du registre. 

Addition d'une unité et saut si plus grand. 
n = numéro du registre. 


X 
X=0 X est-il égal à O ? 
R>Y2] X est-il supérieur à Y ? 
K>0?) X est-il supérieur à O ? 
R<Y?] X est-il inférieur à y ? 
R<D?] X est-il inférieur à O ? 

{2Y?| X est-il inférieur ou égal 

X 

x 

X 


É 
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F Temps 
[oonnées | soesee [fee | 


drapeau n 31 










Encombrement en 
nombre d'octets 


Message 
d'erreur 














2 
2 drapeau n 
2 22-35 
2 drapeau n 33 
2 drapeau n 31 
1 10-21 
i 12-23 
1 28-37 
1 12-23 
4, 
L 
1 28-38 
ï 12-23 
] 10-21 
1 12-23 
2 n 

NONEXISTENT 
2 n 
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Drapeaux 


État à la mise sous 


signification fonciers tension Modifié par hp-41 


d'accès 
Utilisé par les 


Conservé par la 
ee ai mémoire permanente 
Défini par l'utilisateur sf cf fs ?c fc ?c p 
Exécution automatique A 2 
Désarmé 
des programmes 
périphériques 


nn. 
1620 | Non encore di COS 


Oui prend l’état du 
Arrêt d'exécution avec Variable flag 55 
view et aview 


Une valeur numérique a 


été entrée au clavier Désarmé 


Non, n’est pas 


Inhibe arrêt en cas de 


désarmé par R/S 
dépassement de capacité contrairemen à ce 
+/-9.999999999E99 pris que dit le manuel 
par défaut. Sauf division p164 


par zéro 


Idem 22 pour chaîne de 
23 | caractères 
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DRAPEAUX 


État à la mise sous 


fonctions 


signification tension 


d'accès 


on 


Armé 


Mémoire permanente 


Aucune Désarmé 


31-35 | Périphérique HP-IL 
36-41 Format d'affichage Mémoire permanente 
42-43 | Mode trigonométrique Deg rad grad 


Inhibe l’auto-extinction | On | Désarmé 
Entrée de donnée 


RE EE SE 


E Message à l'affichage View aview cld Désarmé 

x] 

| 53 Fonction 1/0 Aucune 

[si [eus een 

E DC 


Inhibe l'arrêt en cas 


d’erreur (instruction non 


exécutée 


Signal sonore actif 


Point décimal ou virgule 


Séparateur de groupe de 
Q i Q i e 


Catalogue en cours 


25 
26 
27 
28 
29 
30 
47 
51 
52 
53 


Imprimante thermique 


présente 





Modifié par hp-41 


Désarmé à la 


première erreur 


Non 


Désarmé pour 


Toujours désarmé 


pour l'utilisateur 


Désarmé par touche 


Toujours désarmé 


pour l'utilisateur 


Oui 


ANNEXE 5 
Procédures et code-barre 
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EUIT 
CLASSE PR ORDRE 
CRSISSONT QU RECRAISSANT 
& HOMBRES CONTENUS 
HORS LE PIE, 





S 


PILE 
ETAT IHITIAL ETAT FINAL 





[2] 
Q = 
il — ë= 
Q Le 
7 on no 
LOS 
(\ A m REGISTRES 
GS n cl GUCHX 
WU =! —=0 DRAPEAUX 
+ (14 UV VU v 8ë 
OZ (AN m PROC. APPEL 
(0 GE 
= Æ = 
UT CE=o 
EL g œ 14 
BI4LEL “TEISTS 83 : ir 
5 iE Hi 
13 





res pa mé Di 
mi Pr ed 
se 
: 





me pou mue met eue pre 
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EE EE 


5 


FM? 
PRGM REGS NEEDED: 
ROW 1 C1-5) 

ROW 2 (6-12) 

ROW 3 (12-16) 


PROGRAMMER HP-41 
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FHT 
STt- 666 
EUT 
FOURHIR EK Y LE HOMBRE 


BE DECINALES 
SELECTIQNAEES, 


DESERVATION 


FILE 
ETAT IHITIAL ETAT FINAL 





DPAPEALE 
AUCUR 


FROC. APPEL 
HOK 





Bi#BL "Far 
88. 

3 SIGN 
fé F57 39 
HS STE 
BE ST+ 
BF FS7 3 
88 ST+ 








de quote font ponte junte oh 


S 


PRGM REGS NEEDED: 


DECIMAL-BASE E 
ROW 1 C1-52 


ROW 3 (16-23) 


ROW 2 (6-16) 


PROGRAMMER HP-41 


CONVERTIR UN HOMBRE BE 


LA BASE 16 EN BASE &. 


ODRSERVATIOH 


b{=99 


FILE 
ETAT IHITIAL ETAT FINAL 





REGISTRES 
AUCUN 


DERPEAUX 
AUCUR 


FEGC, APPEL 
HOK 





a 


BieLEL “i8-p" i6 ST L 
@5 ! i7 #6 L 
83. 18 ST T 
19 CLX 
88 14 

81 KEY? 
88 ST X 
8 Sel 
84 KG L 
35 RH 
86 KO 
87 K#8? 
88 GTO 8 
89 X6 2 
3û .ENE. 


ROW 4 (24-302) 
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ES 


PRGM REGS NEEDED: 
C1—35) 

ROW 2 (C6-—16) 

ROW 3 <17-26) 


ST 
ROW_ 1 








OBSERYATIUH 
FILE 
ETAT INITIAL ETAT FINAL 
T7 5 
22 ë 
Ÿ= à 
ke E 
is is # 
RESISTRES 
AUCUR 
DRAPEALUE 
AUEUH 
M PROC. RAPPEL 
[NS Re 
A 
VV 
à: 
: Gp *5T" fé LASTX 
œ GS 4E8 “BF 15 RTK 
#3 16 CHE 
84 EHTERT 17 166 À 
G5eLBi 87 ig 
86 RBÉ 19 #CT 
Br CHE ëB 
UE x£=67 21 LHSTE 
a5 BSE À 22 PEN 
ig 23 FRL 
{1 STE T 24 X2h5 
iè KO 25 GIG #5 
13 * 26 ROLE 


87 .ERE. 
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PRGM REGS NEEDED: 


ROW 1 Ci-6) 


DF 


PROCÉDURES ET CODE-BARRE 


BF 
ÊTE- BUG 
EUT 


RPPROCHER 
PRE UHE FE) 





CBSERVATION 
LES TERMES BES FRACTIQRE 
SONT AFFICHES EN AiPHR 
LE Fi4G 2i PERMET DE 
CHOISIR LE TEMPS 
B'AFFICHACE. 

A LA FIN DU CALCUL 
LE HUMERATEUR EST ER Ÿ 
LE BENOMINRTEUR EN 









PILE 
ETAT ENITIAL ETAT FIRE 
ET T= / 
& 2? £= Nb HEC 
LE: f= HUE. 
#= Nb DEC #= DEX, 
An A A 
ns + nl O ist Le HEB, 
lle] (l m (oi 
La | [ l A 
4e © à ns 0 REGISTRES 
VU V VU Ÿ Le] AUCUN 
[an m sv n [Te] DRARPERLÉE 
AUCUN 
——— 
== PECGC., APPEL 
[ra œ œ [ra Œ koH , 
dns de 21 xOŸ 31 E10 8 
3 PE CEA 35 4 
53 23 AREL 1 73 KO 
ä4 e4 "te FH KOT 
g5 25 ARCL * 35 CTO 84 
dé 26 AVIEM Z4LEL 68 
87 27 ST: 3F LASTÉ 
ge 28 ST/ L 38 ST Ÿ 
“ 29 xO 1 39 EN. 
" a Y=1? 
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PRGM REGS NEEDED: 


FRACTIONS 


SI 666 


EUT 
SOUSTRACTION, ABDITION 
PROBUIT ET GUOTIENT 
DE 2 FRACTIORS 


DESERVATIOSH 


FILE 
ETAT INITIQL ETAT FINAL 
= I 1 / 

Z= 2 je FRC EC: 

PER *= HUK 

k= X de FRC #= REH 






LL is 6 
REGISTEES 
AUCUR 
la la DRRPEALEE 
Lo) Ÿ Q AUCUR 
A Las a [| | 
mn + | Î Pas . 
| l a + S PROC. PSE 
et + Ce — al fi 
v Ÿ v V V 
as) qu m + n 
= = = = Æ 
(e] © (= (æ) [re 
4 [ra œ œ œ 
BI *E-* ii GT °fFr 
82 CHS 124LBL F2" 
BeLEL “F4 LRO 


LéeiBi “Fer 


15 574 2 





16 EDN 

if STRE 
68 RÜ i8 RUN 
85 + 19 GTO “FF 
if a 28 .ENE. 
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A 


DIVISION EUCLIDIENNE 
PRGM REGS NEEDED: 


ROW 1 C1-5)2 


PROCÉDURES ET CODE-BARRE 


RIYV 
Site M6 
BUT 


CALCUL LE GUOTIENT ESBCT 
ÊT LE RESTE 


OESERYVATIOH 
CONGERVE LES REG, Z ET 7 


PILE 

ETAT INITIAL ETAT FINAL 
TT TT 
2 2: 2 


Y= DIVIDENNE Y= RESTE 
K= DIFISEUR  8= 9, EX, 


ist EL ,5 


REGISTRES 
AHCUR 


DRAPEAUS 
AUCUH 


PROC. APPEL 
NOK 


Qi#Bl DIV" 
e2 ST Ÿ 
83 ac5t 
84 INT 
45 ST- À 
g6 RO 
87 STx! 
A8 CLx 
49.5 

ig TH 
RC L 
2 INT 
13 ON 
4 EHE. 


ROW 2 (6-14) 
ROW 3 (142 
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PRGM REGS NEÉEDED: 


COMBINAISON 
ROW 1 <1—72 


LE 


LE] 


lite SA 
BUT 
CALCUL Di HOMBRE 
HE CONBINAI HE 
K GEJCTS PARMI K 





OBSERVATIOH 


FILE 
ETAT INITIAL ETAT FINAL 
Th = 
Ë= 3 
LR 
#= 


3 
ë 





ist 


qe 
nu 


REGISTRES 
AUCUR 


DRAPERAUX 
AUCU 


FRGC. APPEL 
RS 


ROW 2 (8-12) 


mr 


giant CE" 
EVE 





pe te ar 
Fou en Et 
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LOI BINOMIALE 


PROCÉDURES ET CODE-BARRE 


EUT 
CALCUL LA PROBBETLITE 
QU'UR EVEHEMENT 
SE REALISE K FNIS Sie 
H EPREUVES 








OBSERYVATIOH 
PILE 
o ETAT INITIAL ETAT FINAL 
Te à Te F 
L 2= 7= PF 
LEE: Y= P 
m K= p ÿ= F 
m is L L= À 
Li 
ul $ 
z REGISTRES 
AUCUN 
e 
Û A ñ Qu DRAPEAUX 
EN a AUCU 
W 1: O=n 
L'CSSeN PROC. APPEL 
CB 
EE 
O0 0—=0 
ù © (14 œ td 
Gi+LBL Len" 16H TT: 
2 ! 14 VAR 
E3 KO 15 LASTE 
gi - 16 RER 
85 LASTE i7 + 
à6 0) 7 i8 SG T 
87 ST-T 13 RDX 
ag He T BB RON 
as vtx gt XEG “CB” 
18 LAST4 82 à 
il XO 7 84 END. 


iè Rt 


LI TCL LE] 


3 


| 


R a Z D'UN VECTEUR 
ROW 2 <C6—-9) 


PRGM REGS NEEDED: 


ROW 1 €<1-62 


TEL 
Siitz VARIABLE 


BUT 
EFFACER LES MEMQIRES 
BESIGNEES PAR LE CODE DE 
CONTROLE Bi VECTEUR 
PLACE EH K 


ORSERVATION 


PILE 
ETAT INITIGL ETAT FINAL 
FT TT 
ë À êz À 
=? =" 
#= dû fffii B= 6 


tel Ls 4 


REGISTRES 
CEUX DESISRES ER X 


DBRAPEALUX 
ALICUR 


PROC. APPEL 
HOK 


giéiBi *TCL* 
RE SICR 

Hé CLE 
Rétiti ft 

85 510 THB L 
de ISG 

87 GT0 Bi 

65 RD 

à3 .ENH, 
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se TSM se 
A 


SOMME D'ELEMENTS 
PRGM REGS NEEDED: 


ROW 1 <Ci-62 


PROCÉDURES ET CODE-BARRE 


TS 
SI VARFIQBLE 


BUT 

CALCUL 
RLGEBRIQUE JE 
D'UN SECTE] 

LE CODE DE CO 
INITISLEMERT E 







OBSERVATIOH 


PILE 
ETAT INITIAL ETAT FINAL 
TT = 
Z= 7 & 
+ f= Ÿ 
#= CODE & 5 


J 4 


ist Les 4 
RECISTRES 
AUCH 


DÉAFERALE 
AUCHR 


PROC. APPEL 
NOK 


ROW 2 <C6—11) 


BIéLBL "TSH" 
88 SIC 

gt CLX 
fééiBL 2 

85 REL INR 
gë STi Ÿ 

87 ADR 

RE IS E 

95 GTR 8? 

18 156 
ii .ERE. 


F 
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s… TMX oi 


S 


ADRESSE DU MAXIMUM 
PRGM REGS NEEDED: 


ROW 1 <1-6) 
ROW 3 (17-222 


ROW 2 (6-16) 


—————— 


Aielpi THE" 
& 





Rs ROLE 

gé ROLL INR & 
a? ENTER? 
apelfi 53 

85 RIK 

18 REL IE Ÿ 
if Hier? 


TRE 


VARIABLE 


RECHERCHE D 
VECTEUR 5 
CORTE 
LA VALEUR 
L'ADRÈSS) 
VALEUR. 










DESERVATIONH 


ETAT ENITIRL 
T 


î 


ÿ 
CODE 








2e 


sou PS ent 
CR CO LES L 


Fe 
W 
re 





DÉRAFERLE 
AUCUR 


FREGC. APPEL 
HOK 






rc se 07 
D 
LES 

A 

se 


en On mn 7 + 





En mue pot pet pente bois ent pote mode 
ns MN GER MC Et CA Le cal Dot 
Les 


ta fus 
Pat sud 





OÙ TEN CE] 


S 


ENTREE D°’UN VECTEUR 
PRGM REGS NEEDE D: 


ROW 1 <1-32 


PROCÉDURES ET CODE-BARRE 


TEH 
SE VARIABLE 


EUT 
PROCERURE GEHERALE 
T 





L'ERTREE DE VOLE 
CONSECUTIVES 9 FA 
= D'UHE AURESSE, 





GESERVATIOH 
ST HP-41 STOPPE ANED LE 
HESSAGE NOMEKIST Ë 
FAUT MODIFIER LE SIZ 
(FAIRE VIE L POUF 
NOIR LE SISE RCTIEL) 








e 
rr1 


FILE 
ETAT IRITIAE ETAT FINAL 
FT T= FORMAT GFF 
= à ë= FORMAT GFF 
Ya #= + 


K= AD, BEP.X= COBE CONT. 


ROW 2 <C3-12) 


LS LE L= 
lai Lai la 
Q (ee) in 
NN REGISTRES 
m a o REG. HE STOCKAGE 
a (I q 
LÉ ia v DRGFEALX 
26.29.22.25 EFFACES 
m + n 
= > > RG SPP 
O Q O 
[14 [14 4 
BARLEL "TER"  JB4iBl 84 i9 i 27 LRSTE 
Ag XEG “FH 14 CLR 34 ST4 Ÿ 86 - 
83 SIG T 18 ARCL # A gt L 23 CHS 
4 RDS i3 °F BE RIR 34 LASTE 
85 FIX € i4 PROMET 83 GTO 4 3i E3 
86 CF 22 15 FETE 32 P4#LBL 66 38 / 
87 INT i6 GTD 86 25 FIRINRZ 334 
88 SIEN 17 SIG IRL 26 MSEL 34 190 X 
89 CLX 18 CLS 35 END. 
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"TRI 0 
5 


TRI DES VALEURS 
PRGM REGS NEEDED: 
ROW 1 <C1—42 

ROW 2 <C4-12 

ROW_ 3 <112 


TRI 
SIEz VARIABLE 


EUT 
RONGE PRE ORDRE 
DECRETS LES ELEMENTS 
EUR SECTEUR DONT LE 
CGBE EST El 









OBSERYATION 


PILE 
ETAT INITIAL ETAT FINAL 
= , 
Z 2 


= À 
ë= did.fffi: 





FEGISTRES 
CEUS BEST 


ee. 






DRAPFERLIX 
AUCUR 


PROC. APPEL 
THE 


————— 


get 
Bexihi 5 
&3 ENTER* 
&é YES "TNA" 
Be RC IH E 
fé #C+ IN € 
&? STG IHD Ÿ 
mg RO € 

RS IISG X 

18 GT0 #5 

ii END. 





Et TRN 31 


12 


C1—3) 


RANGS DES VALEURS 
PRGM REGS NEEDED: 


ROW 1 


PROCÉDURES ET CODE-BARRE 


TH 
SIZE= MAFIOBLE 


ET 
REMFLACE LES VALEURS 
PLACEES DANS UN VECTEUR, 
DESICHE PAR ddd,fffii 
PÉR LEUR PONS. 


OBSERYATION 
HE FONCTIONNE QUE SUR 
GES VALENRS POSITIVES 


PILE 
ETAT INITIAL ETAT FINAL 
TT T2 4 
7= 7 E= 4 
= t= ; 
k= add. fffii =; 
LE L= 
REGISTRES 
Fe A Â @ CEUX DESIGHES 
1 AN m (u 
es I I I DROPEAUX 
[ N m N AUCUN 
à: 1 nl m 
bd Se dé PROC. APPEL 
ai ==) po 
= Æ E2 Æ 
Q Q O O 
[1 4 œ œŒ [1 4 
Gal <TER" ii EN £i IC & 31 0BS 
83 ENTERT 12 INT 83 INT 3 
83 XEG <TNE" 13 CHE 23 rt DLBL 67 
ÿ E3 14 STG HET 24 FRE 4 Se IND 5 
85 - 15 CASTE 35 « FR IS Ÿ 
86 i 16 RIN 2% E3 36 GT6 &7 
87 + F+ ë7 * 37 LASTE 
ag x 15 PM 28 - 3 .EKE. 
ALE 86 19 ENTER# 23 156 
18 HEG =TWye 28 FRC 34 GTO 86 


"TNB" 
6 


NOMBRE D'ELEMENTS 
PRGM REGS NEEDED: 
ROW 1 C1—4) 

ROW 2 €C5-12) 

ROW 3 €C12—-19) 


EUIT 
KO D HOMBRE 





CDBSERVATICOH 


HE VERIFIE FRE 


FILE 
ETAT IREFIRL 
TT 
= 
#= do, FETE 





(L 
1 


F 
È 


REGISTRES 
AUCHE 


RUCUR 


PROC, RPFEL 


HEK 


"TRES 


LD 
CRE ES 





CE TML ON 
5 


MELANGE ALEATOIRE 
PRGM REGS NEEDEUz: 


ROW_ 1 C1—4) 


PROCÉDURES ET CODE-BARRE 


FL 
SIZE= VARIABLE 


BUT 
EFFECTUE UN ERASGHE 

= PSEURG-ALEBTOIRE 
DES VALEURS DU VECTEUR 





CEÉSERVATIONH 
PILE 

ETAT INITIAL ETAT FINAL 
TT Te 4 
ês À ë= # 
zt Ye 4 
X= dad.ff#ii k= 4 
Le L L= 


REGISTRES 
"EVENTHELLEMENT 91% 


DRAPERLÉX 
AUCUR 


PROC. APPEL 
C8 


ROW 2 <4—-12) 
ROW 3 <112 


BIEL “TML* 
GeLEL 45 

83 ENTERY 
84 RER "CRC" 
45 RCL INR E 
Gé Ci [HR € 
87 STO INB Ÿ 
88 RO 2 

89 156 & 

19 G15 46 

it .ENR, 


LE] TAF LE] 


7 


AFFICHAGE DES VALEURS 
PRGM REGS NEEDEDs: 


ROW_ 1 <C1—3) 
ROW 3 C11-18) 


ROW 4 C19-22) 


ROW 2 <4-11) 


TAF 


Sites VARIABLE 


EUT 





UTILISE LE FLGG 
DETENTE L'ARRET 
CHAQUE VALEUR 








FILE 
INTTIR ETAT FIHR 





ct ET 
a 
pl 


6 Tu 4 A 


NE 


DRAFERLEÉX 
36 à 39 TESTÉES REST 





PEQC. APPEL 


EX? 

BE “TAF 15 FES INET 
&è ER “FR 12 AR IRD LE 
83 RDF 13 AVIER 

Ré SIG ié ISE # 

85 CEE CR 

RéeLEL 85 ig ISDC TL 

87 CE ir CT 85 

88 FIX 6 18 8T- L 

#3 ARCL & CRE 


LENS 88 .ENT. 


PROCÉDURES ET CODE-BARRE 


NL 


C9t-rv2 


Cr -9E) 


(SE -62) 


(GET) 


Che pt) 


Cÿ TI—S) 


CG 12 


Æ 


T 


MO 


MO 


MO 


MO 


MO 


MO 


MO 


a L SOZOZ3N SI WI23a4 


“OTL, dN3LTIA NN. 0 31407238 
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TC 
SHE= VARIABLE 


BAT 
RECOPIE UK #E 
LE CQBE 

6 PARTIR DE 
PLACEE 







DESERVATIONH 
I PEUT *Ÿ AVOIR 
FECQUVREMENT Hi VECTEUR 
INITIAL PAR LE VECTEUR 
FIHAL. 





PTLE 
ETAT INITIAL ETAT FIHAL 
= 7 T= 4 








DÉGFERUE 
QUEUE 


FROC. RAPPEL 
TRE 
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æ dE 
UC | 


ue de 


Ed & le Fe Pan 
pan É 
Fri 
a 

ut 
4 
Æ 
É 
ï 








33 Be 








T<—>" 


À 


C1-6) 


ECHANGE DEUX VECTEURS 
PRGM REGS NEEDEU: 


ROW 1 


PROCÉDURES ET CODE-BARRE 


TE 5 
SIE= VARIABLE 
EUT 
ECHANGER TERME R TERME 


TS JE 





OBSERVATION 
LA PROCEDURE PREND FIN 
LORSQUE LE VECTEUR LE 
PLUS COURT EST EPISE, 





PILE 

ETAT INITIAL ETAT FINAL 
TT E1 
z 2 2 2 
#= ddd.FFFII ; 





&= ddd,FFFII 
ist Lis # 
REGISTRES 
CEUX DES 2 VECTEURS. 


DRAFEAUX 
AUCH 


PROC. APPEL 
HOR 





ROW 2 <6—-13) 
ROW 3 <132) 


BielBl “Ti 
88 SIGN 
B3#LBL 13 
&é CLX 

85 RL IMDL 
A6 4€ IKE 
87 STG INE L 
86 IS6 Ÿ 

gg FE7 38 

18 RTK 
DRE: 

ie GTG 13 

13 .EHE. 
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CONTROLE DE MATRICE “CMM" 
PRGM REGS NEEDEDs 3 


ROW 1 €Ci-5) 
ROW 2 (6-7) 


ELT 
El 





AT IRITIAL ETET FINAL 





Test 


HE Et Pl et PT 


7 L 
dé #= + 
dddittii Ke ddé.fff 


r 
ni 
pes 


REGISTRES 


PROC. APPEL 
Koh 
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it CMC us 


2 


CONTROLE DE COLONNE 
PRGM REGS NEEDED: 


ROW 1 €C1-5) 


PROCÉDURES ET CODE-BARRE 


CHE 
STE: GE 


EUT 
CALCULER À PARTIE DE 
COBE DE CONTRE D'UME 
MATRICE CEH #3 ET Di 
HUMERD JE LICHE CEN #3 
LE COBE DE CONTROLE DE 
CETTE LIGHE, 


OBSERVATION 
ORIGINE LIGNE =6 
COLONNE=A 


PILE 
ETAT ENITIAL ETAT FIHAL 
T7 Ts 
x ê= à 
LGK Y= 4 
dad,tffii #= CODE 


ë 
Ÿ 
Fe 
i=L L= 


REGISTRES 
AUCUX 


DRAPEALIÉK 
AUCUN 


PROC. RPPEL 
HGH 


Bitlet “CH 
L'RSSL 

63 INT 

Ha + 

85 .ENE. 
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1 CML on 
5 


C1-62 


CONTROLE DE LIGNE 
PRGM REGCS NEEDED: 
ROW 2 6-15) 
ROW 3 (15-19) 


ROW 1 


BUT 
CRLCULER A PARTIR DU 
ÊSBE BE CONTROLE CE X3 
ET Di HUMERO CEN Ÿ) 
LE COB£ DE COHTROLE DE 
LA CCEONNE, 





OBSERYATIONH 
PILE 
ETAT INITIRR ETAT FINAL 
Ta Le 
. ZT 
%= Ca 8 z 
= dédfétiiés CODE CO 
EE ie CL 
REGISTRES 
EIGUR 
DRAPEQUX 
AUCUN 
FRCGC. RPPEL 
HG 
RIHEL “CH I KO 
CERTES 12 INT 
13 ST 
14 XOY 
15 E-3 
RS: 
i8 + 
19 .ENE 
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CMP" 


3 


EDED: 


D 


Lil 


D'UN POINT 
N 


(fi 
(a 


ül 
œ 


Z 
Y Ü 
Q Ÿ 
<i 


E 


ee 
TZ = 
ss 


E 


PROCÉDURES ET CODE-BARRE 


en 
at" Va) 
=! 
Û 
ans | 
EN — 
= = 
—— 
TEST 


MONET 
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JE COLONNE EE * 
ET LE CODE DE MATR, EH X 


OBSERVATION 
ORIGINE LICHE=S 
COLONHE = 


PILE 
ETAT INITIAL ETAT FIRE 
TT TT 
LORS 25 
YC WT 
k= dddfffii Y= ARR. 


Le L ‘Le 7 
REGISTRES 
AUCUR 


DRAPERLÉ 
AHICUR 


FROC. APPEL 
CHK CNL 





Blsisi “CHP* 
82 RER “CHC* 
83 ES “CHL* 
84 KT 

85 .END, 


DIM" 


5 


C1—-5) 


CODE D'UNE MATRICE 
PRGM REGS NEEDED:s 


ROW 2 <6-12) 


ROW 1 


HT 
SE 666 


EUT 
OBTENIR LE CODE DE 
CONTROLE D'UNE MATRICE 
RONT LA BASE EST EH 2, 
LE NOMERE DE LIGNES EN Ÿ 
ET LE NOMBRE DE COLONES 


OBSERYATION 
PILE 

ETAT INITIAL ETAT FINAL 

= TT 

2= BASE ZT 

Y= Nb LGN 7 

K= Nb CLN K= ddd,FFFII 


Lez Enrs 
REGISTRES 
AUCUN 


DHRRPEAUS 
AUCUR 


PROC. RAPPEL 
Ho4 


ROW 3 €C13-—-15) 





13 END. 
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ut CO0O “1 


À 


COORDONNEES D’UN POINT 
PRGM REGS NEEDED: 


ROW 1 <1—52) 


PROCÉDURES ET CODE-BARRE 


MALE, 
SI2E- 686 


BUT 
CALCULER LES COGRDONNEES 
LIGNE, COLONHE, D'UHE 
VALEUR DONT L'ADRESSE 
EST PLACEE EN Ÿ, LE CODE 
MATRICE EX &. 


OBSERYATION 
PILE 
ETAT INITIAL ETAT FINAL 
T=T T=T 
= È ë= 
Y= ADR, Y=L 
x= CODE MATR, ÿ= € 
Le L= / 


REGISTRES 
AUCUR 


DRAPFEALX 
QUCUR 


PROC. APFEL 
DIV 


ROW 2 <6—-12) 


A{+LBL *CO0* 
62 INT 

83 57T- Ÿ 

ñ4 x? L 

45 FRC 

46 156 X 

87 INT 

88 ER “DIV” 
99 xCY 

18 .END, 
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FAUNE © 


74 


RAPPEL DES CHAINES 
PRGM REGS NEEDED: 
h 12 
C3-—1 4) 
(14-21) 
Cei=206) 


ROW 

ROW 2 
ROW 3 
ROW 4 


ATAF 
SI2E= VARIABLE 
BUT 


AFFICHAGE DES CHAINES 
ALPHA EN MEMOIRE, 


QOBSERYATIONH 


PILE 
ETAT INITIAL ETAT FINAL 
TT 7e 4 
LES  / 
Y=Y *= 4 
x= CODE HATR, = / 
Le L is 4 


REGISTRES 


AHEUR 
DRAPERLX 
AUCUR 
PROC. APPEL 
CHE 
@ieLBL “ATAF* 14 ARCE THE Ÿ 
82 ENTERT 15 156 Ÿ 
83 KEG “CHR* 16 FS7 38 
B4 KCY 17 678 fi 
85 FRC 18 DSE x 
fé [56 # 19 GTO {2 
87 INT 28 AVIEH 
8 SIGH 21 TOME 7 
AGeLBL 13 22 GTO 17 
ig CiR 23#L6L f1 
fi CEA 4 AVIEË 
12 LASTE 23 TOHE 7 
13161 12 26 .ENI. 
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PROCÉDURES ET CODE-BARRE 


CtS—-0S) 6 MO 


(OS-er) 8 MO 


CIYÿ-8E) Z MO 


(8E-2E) 


Tr 


CSE-Se) S MOù 


nn nn 


TUE 


C<S£-G6I)» + MO 


CGI-ET) € MO 


nl 


Cet=S) .€e. MON 


CS—-IT) I MO 


ST SOSOISIN SI93Y WId 
VHd71V 3LINS NN 3SIS3ONW3N 
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ATEH 1e INT 





13 SIGN 
SI2Ez VARIABLE 14 ST4 L 
15 CLK 
BUT 16 STQ T 
PLACER EN MEMOIRE UNE 17 CF 23 
SUCCESSION DE CHAINES 13eLBL 14 
19 “CHN * 
28 ARCL T 
OBSERYATION 21 "+?" 
22 AON 
23 PROMPT 
24 FC2C 23 
PILE 25 GTO “CODE” 
ETAT INITIAL ETAT FINAL 26 CL£ 
1=1 7: / 27 LASTX 
Z= 2 2= / 28+LBL 15 
Y= Ho HAX de CARACT,Y= / 23 ASTO IND Ÿ 
X= ADR. DEP.X= CODE MAT. 38 ASHF 
31 SG Ÿ 
LL Le / 32 STO * 
33 DSE 
34 GTG 15 
REGISTRES 35 ISÇT 
REG. DE STOCKAGE 36 STO X 
37 GTO 14 
DRAPEALISX 38eLBL “CODE" 
23 EFFACE 39 FIX INN Z 
4ÿ x) L 
FROC. APPEL 4j F2 
FH? 42 / 
43 XOY 
44 INT 
45 ST- 
46 ST+ Ÿ 
47 CLX 
48 E3 
49 ST L 
58 ST/ Ÿ 
BieLBi “ATEN” 51 xO L 
g2 2 + 
93 % 53 AOFF 
f4 + 54 .END, 
45 XEQ FH?" 
86 FIX 8 
g7 KO) 2 
95 1 
89 - 
186 
{1 / 
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A" 


3 


C1—-5) 


CONCATENATION DANS ALPHA 


PRGM REGS NEEDED: 


ROW 1 


PROCÉDURES ET CODE-BARRE 


CA 
SIZE= VARIABLE 


BUT 
REPLACER UNE CHATHE DANS 
LE REG. ALPHA A PAPTIR 
DU TABLEAU DE CARACTERES 


OBSERVATION 
PILE 

ETAT INITIAL ETAT FINAL 
ET RIT 
= 2 2= 2 
= Y Y= Ÿ 
K= CODE CONT, = CODE 
CONT. 

te L L= 7 


REGISTRES 
AUCUN 


DRAPEAUX 
AUCUN 


(6-8) 


PROC. APPEL 
NON 


ROW 2 


SieLBL "C-Q* 
82 STG L 

#3 CLR 
f4eLEL 18 

85 ARCL IND L 
86 IS6L 

87 GTO 14 

88 .END, 
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= 


€1=5S) 
(6-11) 


RAPPEL FRC ALPHA 
PRGM REGS NEEDED: 


ROW 1 
ROW 2 
ROW 3 (11-122 


AFRE 
SIZE VARTABLE 


BUT 
RAPPELER DANS ALPHA UNE 
FRACTIQN:DE CHATHE 
CONSERVEE EN TABLEAU DE 
CARACTERES 


OBSERVATION 


PILE 
ETAT INITIAL ETAT FINAL 
T:7 TT 
Zä2 ZT 
Y= dd.8ff v=27 
K= CODE CONT x= CODE CON 


L=L L=.7 
REGISTRES 
AUCUR 


DRAFEALX 
AUCUR 


PROC. APFEL 
NON 





Gi+LBL “AFRC* 
82 INT 

83 SIGN 

84 ST+4 L 

85 CLX 

86 E-3 

47 XQ L 

48 STe L 

83 xO L 

18 + 

ii GTO *C-f" 
12 .END. 


PROCÉDURES ET CODE-BARRE 


C8t—Er) 


(Et -9E) 


(SE —0E) 


C6GE-Te) 


COZ-ÿ TD 


EP I=22 


(9-12 


e 


I 


MOù 


MO 


MO 


MO 


MO 


MO3 


MO 


ET OSOSSN SI58 NISa 
TO -Vi SA sLOVEAEVS SAT 3 IOSI 
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A-C 
SIZE VARIABLE 


BUT 
DECOMPOSER LE REGISTRE 
ALPHA POUR CONSTITUER 

UH VECTEUR DE CARACTERES 


OESERYATION 
SOYEZ PATIENT 
18 CARACTERES MAX 


PILE 
ETAT INITIAL ETAT FINAL 
TT = / 
= 2 = / 
= Ÿ = / 


X= ADR. DEP.X= CODE CONT 
EL LE / 
REGISTRES 
REG, STOCKAGE 


DRAPEALX 
AUCUN 


PROC. APPEL 
NON 
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PeLEL “A-C* 
92 INT 

53 ,1 

84 % 

65 + 

86 SIGN 

87 ASTO Ÿ 
48 ASHF 

83 ASTO Z 

18 ASHF 

ii ASTO T 

{2 CLA 

13 ASTO # 

14 RED 14 

15 KEQ 14 

16 XEB té 

17 LASTY 

18 FRC 

19 ST- L 

28 E3 

21 STx Ÿ 

22 xXC L 

23 x=Y? 

24 ASTO IND 4 
25 #9? 

26 DSE * 

27 LAST* 

28 / 

è9 + 

38 RTK 
31+LBL 14 

32 x=Y? 

33 GTO 88 

34 “12345 
35 ARCL Ÿ 
36 ASTO IND L 
37 ASHF 

38 ASTO Ÿ 
33 "6" 

44 ARCL IND L 
41 ASHF 

42 ASTO IN L 
43 ISG L 

44 ST0 * 

45 GT 14 
46eLBL 80 
47 RDN 

48 ,END, 


PROCÉDURES ET CODE-BARRE 


num 


(ee) © MOù 


LL 
CTIS—ZTID 

CLI-TI) € MO 

(BI-9) € MO 

CG-T2 IT MO 


B OSOSSN SISYU NOSËE 
uN7Ou à NON NO InNO 
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0<H ieLBL “O/N* 


82 AOK 
SIZE M6 83 CF 21 
fd+Lpi Gt 
EAIT 85 CF 22 
INTERROGATION SUR UNE 86 “HG/N?2* 
ALTERNATISE 67 AVIER 
B8+LEL 66 
A9 PSE 
OBSERVATICOH 18 FC? 27 
UTILISABLE SAK£ ii GTO 68 
PRECAUTION PARTICULIERE ie ASTO À 
13 SF 25 
14 GTO INR L 
PTLE i5 CEE 
ETAT THITIAL ETAT FINAL 16 GTG &! 
FT TT 17eLBL °K° 
2 2 2= 2 18 CF 83 
Y=Y V= Ÿ i9eLBL *0" 
#= & K= à 28 CF 25 
21 AOFF 
LEE LE # 22 ,EHD, 
REGISTRES 
AUCUN 
DRAPFEAUX 


21 23 25 EFFACES 


PROC. APPEL 
NOR 
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PROCÉDURES ET CODE-BARRE 


Tnt 


COY7-6E) 


(8E-622 


Be te) 


COZ—-91I) 


C9I—ITI) 


CI 1-9) 


C9—T) 
eZ E UOROIN SSI 


vÜOSHs TIVYSSNATD VAI 


Z MO 
9 MO 
S MO 
ÿ MO 
il 
E MO 
ce MO 
T MO 


WI 
"ANz3I 


173 


HSH-GAG 
SIZE: GA 


EUT 
SEHERATEUR PE HOMBRES 
ALERTAIPES 


DESERYATIOH 
USD EST APPELE EN DEBUT 
DE PROGRAMME : 

IL *ENSEMENCE" 

LE GEHERATEUR, 

GAG UTILISE LE REG, À 
POUR DEFINIR LES BORNES 


PILE 

ETAT INITIAL ETAT FIHAL 
27 T= 4 
22 2= 2? 
=Y =" 
= pti: A4f #= N 
is L Le 

REGISTRES 

La 
DRAPEALX 
AUCUH 


PROC. APPEL 
NON 


GieLEL “HST* 
62 DEG 

93 RCL 48 
84 SF 25 

45 FRC 

fé F57C 25 
87 #=8? 

98 F5? 38 
as GTO 8e 

18 RDK 

11 "ALER &<xc 1?" 
12 TOHE 9 
13 PROMPT 

14 STO 88 
15 RDA 

16 GTO HSE" 
i7eLBL 68 
18 CLX 
19+LBL “GAG* 
28 FRC 

729 1 CORP 

êè E3 

83 ST4 Ÿ 

24 XCD L 

25 #37? 

26 #€)Y 

87 - 

28 ISG À 

23 ST0 À 

38 RCE BE 
31 ST 

3 xOL 

33 + 

34 KT 

35 RCI 88 
36 AC05 

37 FR 

38 STO 6 
33 RIH 

49 .EKE, 





Achevé d'imprimer en septembre 1982 | 
Sur les presses de l'imprimerie Laballery et C*° 


58500 Clamecy 
Dépôt légal : septembre 1982 





n° d'impression : 20831 
N° d'édition : 86595-56-1 
ISBN : 2-86595-56-5 


de 


EDITIONS DU PS 
*+v* 






programmer HP. 41 


Ce 1® volume étudie HP-41, sans ses périphé- 
riques, selon quatre axes : LES TESTS ET LES 
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RACTERES : extraire un passage d'un texte, le décou- 
per ou le reconstituer. Une quarantaine de nouvelles 
fonctions, fournies sous forme de code barre, les index 
et les tableaux rassemblés en annexe constituent un 
outil de référence permanent, 
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